home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1998-05-21 | 13.9 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
| 100%
| file
| Emacs/XEmacs v20 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 73 74 65 76 65 40 61 |piled by| steve@a|
|00000020| 6c 74 61 69 72 2e 78 65 | 6d 61 63 73 2e 6f 72 67 |ltair.xe|macs.org|
|00000030| 20 6f 6e 20 54 68 75 20 | 4e 6f 76 20 32 30 20 31 | on Thu |Nov 20 1|
|00000040| 37 3a 34 30 3a 33 32 20 | 31 39 39 37 0a 3b 3b 3b |7:40:32 |1997.;;;|
|00000050| 20 66 72 6f 6d 20 66 69 | 6c 65 20 2f 68 6f 6d 65 | from fi|le /home|
|00000060| 2f 78 65 6d 61 63 73 2f | 32 30 2e 33 2f 78 65 6d |/xemacs/|20.3/xem|
|00000070| 61 63 73 2d 32 30 2e 33 | 2f 6c 69 73 70 2f 6d 75 |acs-20.3|/lisp/mu|
|00000080| 6c 65 2f 6d 75 6c 65 2d | 63 63 6c 2e 65 6c 0a 3b |le/mule-|ccl.el.;|
|00000090| 3b 3b 20 65 6d 61 63 73 | 20 76 65 72 73 69 6f 6e |;; emacs| version|
|000000a0| 20 32 30 2e 33 20 22 56 | 61 74 69 63 61 6e 20 43 | 20.3 "V|atican C|
|000000b0| 69 74 79 22 20 58 45 6d | 61 63 73 20 20 4c 75 63 |ity" XEm|acs Luc|
|000000c0| 69 64 2e 0a 3b 3b 3b 20 | 62 79 74 65 63 6f 6d 70 |id..;;; |bytecomp|
|000000d0| 20 76 65 72 73 69 6f 6e | 20 32 2e 32 35 20 58 45 | version| 2.25 XE|
|000000e0| 6d 61 63 73 3b 20 32 32 | 2d 4d 61 72 2d 39 36 2e |macs; 22|-Mar-96.|
|000000f0| 0a 3b 3b 3b 20 6f 70 74 | 69 6d 69 7a 61 74 69 6f |.;;; opt|imizatio|
|00000100| 6e 20 69 73 20 6f 6e 2e | 0a 3b 3b 3b 20 74 68 69 |n is on.|.;;; thi|
|00000110| 73 20 66 69 6c 65 20 75 | 73 65 73 20 6f 70 63 6f |s file u|ses opco|
|00000120| 64 65 73 20 77 68 69 63 | 68 20 64 6f 20 6e 6f 74 |des whic|h do not|
|00000130| 20 65 78 69 73 74 20 69 | 6e 20 45 6d 61 63 73 20 | exist i|n Emacs |
|00000140| 31 39 2e 0a 0a 28 69 66 | 20 28 61 6e 64 20 28 62 |19...(if| (and (b|
|00000150| 6f 75 6e 64 70 20 27 65 | 6d 61 63 73 2d 76 65 72 |oundp 'e|macs-ver|
|00000160| 73 69 6f 6e 29 0a 09 20 | 28 6f 72 20 28 61 6e 64 |sion).. |(or (and|
|00000170| 20 28 62 6f 75 6e 64 70 | 20 27 65 70 6f 63 68 3a | (boundp| 'epoch:|
|00000180| 3a 76 65 72 73 69 6f 6e | 29 20 65 70 6f 63 68 3a |:version|) epoch:|
|00000190| 3a 76 65 72 73 69 6f 6e | 29 0a 09 20 20 20 20 20 |:version|).. |
|000001a0| 28 73 74 72 69 6e 67 2d | 6c 65 73 73 70 20 65 6d |(string-|lessp em|
|000001b0| 61 63 73 2d 76 65 72 73 | 69 6f 6e 20 22 32 30 22 |acs-vers|ion "20"|
|000001c0| 29 29 29 0a 20 20 20 20 | 28 65 72 72 6f 72 20 22 |))). |(error "|
|000001d0| 60 6d 75 6c 65 2d 63 63 | 6c 2e 65 6c 27 20 77 61 |`mule-cc|l.el' wa|
|000001e0| 73 20 63 6f 6d 70 69 6c | 65 64 20 66 6f 72 20 45 |s compil|ed for E|
|000001f0| 6d 61 63 73 20 32 30 22 | 29 29 0a 0a 28 6f 72 20 |macs 20"|))..(or |
|00000200| 28 62 6f 75 6e 64 70 20 | 27 63 75 72 72 65 6e 74 |(boundp |'current|
|00000210| 2d 6c 6f 61 64 2d 6c 69 | 73 74 29 20 28 73 65 74 |-load-li|st) (set|
|00000220| 71 20 63 75 72 72 65 6e | 74 2d 6c 6f 61 64 2d 6c |q curren|t-load-l|
|00000230| 69 73 74 20 6e 69 6c 29 | 29 0a 0a 0a 28 62 79 74 |ist nil)|)...(byt|
|00000240| 65 2d 63 6f 64 65 20 22 | c0 11 c1 5c 6e 42 12 c3 |e-code "|...\nB..|
|00000250| c4 09 47 1d 1e 06 1e 07 | 0e 06 0d 57 ab 9b 09 0e |..G.....|...W....|
|00000260| 06 48 16 07 c8 0e 07 c9 | ca cb cc 0e 07 5c 22 21 |.H......|.....\"!|
|00000270| 23 88 0e 06 54 89 16 06 | aa 61 2b cd 16 0e ce 5c |#...T...|.a+....\|
|00000280| 6e 42 12 c3 c4 0e 0e 47 | 1d 1e 06 1e 0f 0e 06 0d |nB.....G|........|
|00000290| 57 ab a4 0e 0e 0e 06 48 | 16 0f c8 0e 0f d0 0e 06 |W......H|........|
|000002a0| 23 88 c8 0e 0f d1 ca cb | d2 0e 0f 5c 22 21 23 88 |#.......|...\"!#.|
|000002b0| 0e 06 54 89 16 06 aa 58 | 2b d3 16 14 d4 5c 6e 42 |..T....X|+....\nB|
|000002c0| 12 c3 c4 0e 14 47 1d 1e | 06 1e 15 0e 06 0d 57 ab |.....G..|......W.|
|000002d0| 97 0e 14 0e 06 48 16 15 | c8 0e 15 d6 0e 06 23 88 |.....H..|......#.|
|000002e0| 0e 06 54 89 16 06 aa 65 | 2b d7 16 18 d8 5c 6e 42 |..T....e|+....\nB|
|000002f0| 12 c3 c4 0e 18 47 1d 1e | 06 1e 19 0e 06 0d 57 ab |.....G..|......W.|
|00000300| 9a 0e 18 0e 06 48 89 16 | 19 ab 88 c8 0e 19 da 0e |.....H..|........|
|00000310| 06 23 88 0e 06 54 89 16 | 06 aa 62 2b db 16 1c dc |.#...T..|..b+....|
|00000320| 5c 6e 42 12 c3 c4 0e 1c | 47 1d 1e 06 1e 19 0e 06 |\nB.....|G.......|
|00000330| 0d 57 ab 97 0e 1c 0e 06 | 48 16 19 c8 0e 19 dd 0e |.W......|H.......|
|00000340| 06 23 88 0e 06 54 89 16 | 06 aa 65 2b de df 21 ac |.#...T..|..e+..!.|
|00000350| 83 c3 16 1f df 5c 6e 42 | 12 de e0 21 ac 83 c4 16 |.....\nB|...!....|
|00000360| 20 e0 5c 6e 42 12 c3 87 | 22 20 5b 5b 69 66 20 62 | .\nB...|" [[if b|
|00000370| 72 61 6e 63 68 20 6c 6f | 6f 70 20 62 72 65 61 6b |ranch lo|op break|
|00000380| 20 72 65 70 65 61 74 20 | 77 72 69 74 65 2d 72 65 | repeat |write-re|
|00000390| 70 65 61 74 20 77 72 69 | 74 65 2d 72 65 61 64 2d |peat wri|te-read-|
|000003a0| 72 65 70 65 61 74 20 72 | 65 61 64 20 72 65 61 64 |repeat r|ead read|
|000003b0| 2d 69 66 20 72 65 61 64 | 2d 62 72 61 6e 63 68 20 |-if read|-branch |
|000003c0| 77 72 69 74 65 20 65 6e | 64 5d 20 63 63 6c 2d 6f |write en|d] ccl-o|
|000003d0| 70 65 72 61 74 6f 72 2d | 74 61 62 6c 65 20 63 75 |perator-|table cu|
|000003e0| 72 72 65 6e 74 2d 6c 6f | 61 64 2d 6c 69 73 74 20 |rrent-lo|ad-list |
|000003f0| 6e 69 6c 20 30 20 6c 65 | 6e 20 69 20 6f 70 20 70 |nil 0 le|n i op p|
|00000400| 75 74 20 63 63 6c 2d 63 | 6f 6d 70 69 6c 65 2d 66 |ut ccl-c|ompile-f|
|00000410| 75 6e 63 74 69 6f 6e 20 | 69 6e 74 65 72 6e 20 66 |unction |intern f|
|00000420| 6f 72 6d 61 74 20 22 63 | 63 6c 2d 63 6f 6d 70 69 |ormat "c|cl-compi|
|00000430| 6c 65 2d 25 73 22 20 5b | 73 65 74 2d 63 73 20 73 |le-%s" [|set-cs s|
|00000440| 65 74 2d 63 6c 20 73 65 | 74 2d 72 20 73 65 74 2d |et-cl se|t-r set-|
|00000450| 61 20 6a 75 6d 70 20 6a | 75 6d 70 2d 63 6f 6e 64 |a jump j|ump-cond|
|00000460| 20 77 72 69 74 65 2d 6a | 75 6d 70 20 77 72 69 74 | write-j|ump writ|
|00000470| 65 2d 72 65 61 64 2d 6a | 75 6d 70 20 77 72 69 74 |e-read-j|ump writ|
|00000480| 65 2d 63 2d 6a 75 6d 70 | 20 77 72 69 74 65 2d 63 |e-c-jump| write-c|
|00000490| 2d 72 65 61 64 2d 6a 75 | 6d 70 20 77 72 69 74 65 |-read-ju|mp write|
|000004a0| 2d 73 2d 6a 75 6d 70 20 | 77 72 69 74 65 2d 73 2d |-s-jump |write-s-|
|000004b0| 72 65 61 64 2d 6a 75 6d | 70 20 77 72 69 74 65 2d |read-jum|p write-|
|000004c0| 61 2d 72 65 61 64 2d 6a | 75 6d 70 20 62 72 61 6e |a-read-j|ump bran|
|000004d0| 63 68 20 72 65 61 64 31 | 20 72 65 61 64 32 20 72 |ch read1| read2 r|
|000004e0| 65 61 64 2d 62 72 61 6e | 63 68 20 77 72 69 74 65 |ead-bran|ch write|
|000004f0| 31 20 77 72 69 74 65 32 | 20 77 72 69 74 65 2d 63 |1 write2| write-c|
|00000500| 20 77 72 69 74 65 2d 73 | 20 77 72 69 74 65 2d 61 | write-s| write-a|
|00000510| 20 65 6e 64 20 73 65 74 | 2d 73 65 6c 66 2d 63 73 | end set|-self-cs|
|00000520| 20 73 65 74 2d 73 65 6c | 66 2d 63 6c 20 73 65 74 | set-sel|f-cl set|
|00000530| 2d 73 65 6c 66 2d 72 20 | 73 65 74 2d 65 78 70 72 |-self-r |set-expr|
|00000540| 2d 63 6c 20 73 65 74 2d | 65 78 70 72 2d 72 20 6a |-cl set-|expr-r j|
|00000550| 75 6d 70 2d 63 6f 6e 64 | 2d 63 20 6a 75 6d 70 2d |ump-cond|-c jump-|
|00000560| 63 6f 6e 64 2d 72 20 72 | 65 61 64 2d 6a 75 6d 70 |cond-r r|ead-jump|
|00000570| 2d 63 6f 6e 64 2d 63 20 | 72 65 61 64 2d 6a 75 6d |-cond-c |read-jum|
|00000580| 70 2d 63 6f 6e 64 2d 72 | 5d 20 63 63 6c 2d 6d 61 |p-cond-r|] ccl-ma|
|00000590| 63 68 69 6e 65 2d 63 6f | 64 65 2d 74 61 62 6c 65 |chine-co|de-table|
|000005a0| 20 63 6f 64 65 20 63 63 | 6c 2d 63 6f 64 65 20 63 | code cc|l-code c|
|000005b0| 63 6c 2d 64 75 6d 70 2d | 66 75 6e 63 74 69 6f 6e |cl-dump-|function|
|000005c0| 20 22 63 63 6c 2d 64 75 | 6d 70 2d 25 73 22 20 5b | "ccl-du|mp-%s" [|
|000005d0| 72 30 20 72 31 20 72 32 | 20 72 33 20 72 34 20 72 |r0 r1 r2| r3 r4 r|
|000005e0| 35 20 72 36 20 72 37 5d | 20 63 63 6c 2d 72 65 67 |5 r6 r7]| ccl-reg|
|000005f0| 69 73 74 65 72 2d 74 61 | 62 6c 65 20 72 65 67 20 |ister-ta|ble reg |
|00000600| 63 63 6c 2d 72 65 67 69 | 73 74 65 72 2d 6e 75 6d |ccl-regi|ster-num|
|00000610| 62 65 72 20 5b 2b 20 2d | 20 2a 20 2f 20 25 20 26 |ber [+ -| * / % &|
|00000620| 20 7c 20 5e 20 3c 3c 20 | 3e 3e 20 3c 38 20 3e 38 | | ^ << |>> <8 >8|
|00000630| 20 2f 2f 20 6e 69 6c 20 | 6e 69 6c 20 6e 69 6c 20 | // nil |nil nil |
|00000640| 3c 20 3e 20 3d 3d 20 3c | 3d 20 3e 3d 20 21 3d 5d |< > == <|= >= !=]|
|00000650| 20 63 63 6c 2d 61 72 69 | 74 68 2d 74 61 62 6c 65 | ccl-ari|th-table|
|00000660| 20 61 72 69 74 68 20 63 | 63 6c 2d 61 72 69 74 68 | arith c|cl-arith|
|00000670| 2d 63 6f 64 65 20 5b 2b | 3d 20 2d 3d 20 2a 3d 20 |-code [+|= -= *= |
|00000680| 2f 3d 20 25 3d 20 26 3d | 20 7c 3d 20 5e 3d 20 3c |/= %= &=| |= ^= <|
|00000690| 3c 3d 20 3e 3e 3d 20 3c | 38 3d 20 3e 38 3d 20 2f |<= >>= <|8= >8= /|
|000006a0| 2f 3d 5d 20 63 63 6c 2d | 73 65 6c 66 2d 61 72 69 |/=] ccl-|self-ari|
|000006b0| 74 68 2d 74 61 62 6c 65 | 20 63 63 6c 2d 73 65 6c |th-table| ccl-sel|
|000006c0| 66 2d 61 72 69 74 68 2d | 63 6f 64 65 20 62 6f 75 |f-arith-|code bou|
|000006d0| 6e 64 70 20 63 63 6c 2d | 70 72 6f 67 72 61 6d 2d |ndp ccl-|program-|
|000006e0| 76 65 63 74 6f 72 20 63 | 63 6c 2d 63 75 72 72 65 |vector c|cl-curre|
|000006f0| 6e 74 2d 69 63 5d 20 38 | 29 0a 28 64 65 66 61 6c |nt-ic] 8|).(defal|
|00000700| 69 61 73 20 27 63 63 6c | 2d 65 6d 62 65 64 2d 63 |ias 'ccl|-embed-c|
|00000710| 6f 6e 73 74 20 23 5b 28 | 63 6f 6e 73 74 20 26 6f |onst #[(|const &o|
|00000720| 70 74 69 6f 6e 61 6c 20 | 69 63 29 20 22 08 ab 85 |ptional |ic) "...|
|00000730| 09 08 5c 6e 49 87 09 0b | 5c 6e 49 88 0b 54 89 13 |..\nI...|\nI..T..|
|00000740| 87 22 20 5b 69 63 20 63 | 63 6c 2d 70 72 6f 67 72 |." [ic c|cl-progr|
|00000750| 61 6d 2d 76 65 63 74 6f | 72 20 63 6f 6e 73 74 20 |am-vecto|r const |
|00000760| 63 63 6c 2d 63 75 72 72 | 65 6e 74 2d 69 63 5d 20 |ccl-curr|ent-ic] |
|00000770| 33 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 63 |3]).(def|alias 'c|
|00000780| 63 6c 2d 65 6d 62 65 64 | 2d 63 6f 64 65 20 23 5b |cl-embed|-code #[|
|00000790| 28 6f 70 20 72 65 67 20 | 63 6f 6e 73 74 20 26 6f |(op reg |const &o|
|000007a0| 70 74 69 6f 6e 61 6c 20 | 69 63 29 20 22 c0 09 c2 |ptional |ic) "...|
|000007b0| 4e 0b 39 ab 88 c4 0b c5 | 4e c6 5c 22 aa 81 c7 c4 |N.9.....|N.\"....|
|000007c0| 0e 08 c9 5c 22 23 1e 5c | 6e 0e 0b ab 89 0e 0c 0e |...\"#.\|n.......|
|000007d0| 0b 0e 5c 6e 49 aa 8e 0e | 0c 0e 0d 0e 5c 6e 49 88 |..\nI...|....\nI.|
|000007e0| 0e 0d 54 89 16 0d 29 87 | 22 20 5b 6c 6f 67 69 6f |..T...).|" [logio|
|000007f0| 72 20 6f 70 20 63 63 6c | 2d 63 6f 64 65 20 72 65 |r op ccl|-code re|
|00000800| 67 20 61 73 68 20 63 63 | 6c 2d 72 65 67 69 73 74 |g ash cc|l-regist|
|00000810| 65 72 2d 6e 75 6d 62 65 | 72 20 35 20 30 20 63 6f |er-numbe|r 5 0 co|
|00000820| 6e 73 74 20 38 20 6d 61 | 63 68 69 6e 65 2d 63 6f |nst 8 ma|chine-co|
|00000830| 64 65 20 69 63 20 63 63 | 6c 2d 70 72 6f 67 72 61 |de ic cc|l-progra|
|00000840| 6d 2d 76 65 63 74 6f 72 | 20 63 63 6c 2d 63 75 72 |m-vector| ccl-cur|
|00000850| 72 65 6e 74 2d 69 63 5d | 20 36 5d 29 0a 28 64 65 |rent-ic]| 6]).(de|
|00000860| 66 61 6c 69 61 73 20 27 | 63 63 6c 2d 65 6d 62 65 |falias '|ccl-embe|
|00000870| 64 2d 6e 6f 70 20 23 5b | 28 26 6f 70 74 69 6f 6e |d-nop #[|(&option|
|00000880| 61 6c 20 69 6e 63 29 20 | 22 08 09 ae 81 c2 5c 5c |al inc) |".....\\|
|00000890| 89 10 87 22 20 5b 63 63 | 6c 2d 63 75 72 72 65 6e |..." [cc|l-curren|
|000008a0| 74 2d 69 63 20 69 6e 63 | 20 31 5d 20 32 5d 29 0a |t-ic inc| 1] 2]).|
|000008b0| 23 40 34 33 20 54 20 69 | 66 20 4f 42 4a 45 43 54 |#@43 T i|f OBJECT|
|000008c0| 20 69 73 20 61 20 76 61 | 6c 69 64 20 43 43 4c 20 | is a va|lid CCL |
|000008d0| 63 6f 6d 70 69 6c 65 64 | 20 63 6f 64 65 2e 1f 0a |compiled| code...|
|000008e0| 28 64 65 66 61 6c 69 61 | 73 20 27 63 63 6c 2d 70 |(defalia|s 'ccl-p|
|000008f0| 72 6f 67 72 61 6d 2d 70 | 20 23 5b 28 6f 62 6a 29 |rogram-p| #[(obj)|
|00000900| 20 22 c0 09 21 ad a5 c2 | 09 47 c3 1c 1d 1e 06 0d | "..!...|.G......|
|00000910| c7 56 ad 97 0c ab 93 0e | 06 0d 57 ab 8d 09 0e 06 |.V......|..W.....|
|00000920| 48 a8 14 0e 06 54 16 06 | aa 6a 0c 2b 87 22 20 5b |H....T..|.j.+." [|
|00000930| 76 65 63 74 6f 72 70 20 | 6f 62 6a 20 30 20 74 20 |vectorp |obj 0 t |
|00000940| 66 6c 61 67 20 6c 65 6e | 20 69 20 31 5d 20 33 20 |flag len| i 1] 3 |
|00000950| 28 23 24 20 2e 20 32 32 | 32 39 29 5d 29 0a 28 62 |(#$ . 22|29)]).(b|
|00000960| 79 74 65 2d 63 6f 64 65 | 20 22 c0 c1 21 ac 82 c2 |yte-code| "..!...|
|00000970| 11 c1 0b 42 13 c0 c4 21 | ac 82 c2 14 c4 0b 42 13 |...B...!|......B.|
|00000980| c2 87 22 20 5b 62 6f 75 | 6e 64 70 20 63 63 6c 2d |.." [bou|ndp ccl-|
|00000990| 6c 6f 6f 70 2d 68 65 61 | 64 20 6e 69 6c 20 63 75 |loop-hea|d nil cu|
|000009a0| 72 72 65 6e 74 2d 6c 6f | 61 64 2d 6c 69 73 74 20 |rrent-lo|ad-list |
|000009b0| 63 63 6c 2d 62 72 65 61 | 6b 73 5d 20 32 29 0a 23 |ccl-brea|ks] 2).#|
|000009c0| 40 31 31 33 20 43 6f 6d | 70 69 6c 65 20 61 20 43 |@113 Com|pile a C|
|000009d0| 43 4c 20 73 6f 75 72 63 | 65 20 70 72 6f 67 72 61 |CL sourc|e progra|
|000009e0| 6d 20 61 6e 64 20 72 65 | 74 75 72 6e 20 74 68 65 |m and re|turn the|
|000009f0| 20 63 6f 6d 70 69 6c 65 | 64 20 65 71 75 69 76 61 | compile|d equiva|
|00000a00| 6c 65 6e 74 2e 0a 54 68 | 65 20 72 65 74 75 72 6e |lent..Th|e return|
|00000a10| 20 76 61 6c 75 65 20 77 | 69 6c 6c 20 62 65 20 61 | value w|ill be a|
|00000a20| 20 76 65 63 74 6f 72 20 | 6f 66 20 69 6e 74 65 67 | vector |of integ|
|00000a30| 65 72 73 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |ers...(d|efalias |
|00000a40| 27 63 63 6c 2d 63 6f 6d | 70 69 6c 65 20 23 5b 28 |'ccl-com|pile #[(|
|00000a50| 63 63 6c 2d 70 72 6f 67 | 72 61 6d 29 20 22 08 3a |ccl-prog|ram) ".:|
|00000a60| ab 85 08 40 3c ac 85 c1 | c2 08 5c 22 88 c3 0c 21 |...@<...|..\"...!|
|00000a70| ac 87 c5 c6 c7 5c 22 14 | aa 85 c8 0c c7 5c 22 88 |.....\".|.....\".|
|00000a80| c9 16 5c 6e c9 16 0b c7 | 16 0c cd 20 88 ce 08 40 |..\n....|... ...@|
|00000a90| 21 88 cf 0e 0c c7 5c 22 | 88 08 41 40 ab 86 ce 08 |!.....\"|..A@....|
|00000aa0| 41 40 21 88 d0 d1 c7 89 | 23 88 c5 0e 0c c7 5c 22 |A@!.....|#.....\"|
|00000ab0| c7 1e 12 1e 13 0e 12 0e | 0c 57 ab 92 0e 13 0e 12 |........|.W......|
|00000ac0| 0c 0e 12 48 49 88 0e 12 | 54 89 16 12 aa 69 0e 13 |...HI...|T....i..|
|00000ad0| 2a 87 22 20 5b 63 63 6c | 2d 70 72 6f 67 72 61 6d |*." [ccl|-program|
|00000ae0| 20 65 72 72 6f 72 20 22 | 43 43 4c 3a 20 49 6e 76 | error "|CCL: Inv|
|00000af0| 61 6c 69 64 20 73 6f 75 | 72 63 65 20 70 72 6f 67 |alid sou|rce prog|
|00000b00| 72 61 6d 3a 20 25 73 22 | 20 76 65 63 74 6f 72 70 |ram: %s"| vectorp|
|00000b10| 20 63 63 6c 2d 70 72 6f | 67 72 61 6d 2d 76 65 63 | ccl-pro|gram-vec|
|00000b20| 74 6f 72 20 6d 61 6b 65 | 2d 76 65 63 74 6f 72 20 |tor make|-vector |
|00000b30| 38 31 39 32 20 30 20 66 | 69 6c 6c 61 72 72 61 79 |8192 0 f|illarray|
|00000b40| 20 6e 69 6c 20 63 63 6c | 2d 6c 6f 6f 70 2d 68 65 | nil ccl|-loop-he|
|00000b50| 61 64 20 63 63 6c 2d 62 | 72 65 61 6b 73 20 63 63 |ad ccl-b|reaks cc|
|00000b60| 6c 2d 63 75 72 72 65 6e | 74 2d 69 63 20 63 63 6c |l-curren|t-ic ccl|
|00000b70| 2d 65 6d 62 65 64 2d 6e | 6f 70 20 63 63 6c 2d 63 |-embed-n|op ccl-c|
|00000b80| 6f 6d 70 69 6c 65 2d 31 | 20 63 63 6c 2d 65 6d 62 |ompile-1| ccl-emb|
|00000b90| 65 64 2d 63 6f 6e 73 74 | 20 63 63 6c 2d 65 6d 62 |ed-const| ccl-emb|
|00000ba0| 65 64 2d 63 6f 64 65 20 | 65 6e 64 20 69 20 76 65 |ed-code |end i ve|
|00000bb0| 63 5d 20 35 20 28 23 24 | 20 2e 20 32 35 30 31 29 |c] 5 (#$| . 2501)|
|00000bc0| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 63 63 |]).(defa|lias 'cc|
|00000bd0| 6c 2d 63 68 65 63 6b 2d | 63 6f 6e 73 74 61 6e 74 |l-check-|constant|
|00000be0| 20 23 5b 28 61 72 67 20 | 63 6d 64 29 20 22 08 c1 | #[(arg |cmd) "..|
|00000bf0| 59 ab 82 08 87 c2 c3 08 | 0c 23 87 22 20 5b 61 72 |Y.......|.#." [ar|
|00000c00| 67 20 30 20 65 72 72 6f | 72 20 22 43 43 4c 3a 20 |g 0 erro|r "CCL: |
|00000c10| 4e 65 67 61 74 69 76 65 | 20 63 6f 6e 73 74 61 6e |Negative| constan|
|00000c20| 74 20 25 73 20 6e 6f 74 | 20 61 6c 6c 6f 77 65 64 |t %s not| allowed|
|00000c30| 3a 20 25 73 22 20 63 6d | 64 5d 20 34 5d 29 0a 28 |: %s" cm|d] 4]).(|
|00000c40| 64 65 66 61 6c 69 61 73 | 20 27 63 63 6c 2d 63 68 |defalias| 'ccl-ch|
|00000c50| 65 63 6b 2d 72 65 67 69 | 73 74 65 72 20 23 5b 28 |eck-regi|ster #[(|
|00000c60| 61 72 67 20 63 6d 64 29 | 20 22 08 c1 4e ab 82 08 |arg cmd)| "..N...|
|00000c70| 87 c2 c3 08 0c 23 87 22 | 20 5b 61 72 67 20 63 63 |.....#."| [arg cc|
|00000c80| 6c 2d 72 65 67 69 73 74 | 65 72 2d 6e 75 6d 62 65 |l-regist|er-numbe|
|00000c90| 72 20 65 72 72 6f 72 20 | 22 43 43 4c 3a 20 49 6e |r error |"CCL: In|
|00000ca0| 76 61 6c 69 64 20 72 65 | 67 69 73 74 65 72 20 25 |valid re|gister %|
|00000cb0| 73 3a 20 25 73 22 20 63 | 6d 64 5d 20 34 5d 29 0a |s: %s" c|md] 4]).|
|00000cc0| 28 64 65 66 61 6c 69 61 | 73 20 27 63 63 6c 2d 63 |(defalia|s 'ccl-c|
|00000cd0| 68 65 63 6b 2d 72 65 67 | 2d 63 6f 6e 73 74 20 23 |heck-reg|-const #|
|00000ce0| 5b 28 61 72 67 20 63 6d | 64 29 20 22 c0 09 21 ab |[(arg cm|d) "..!.|
|00000cf0| 85 c2 09 0b 5c 22 87 c4 | 09 0b 5c 22 87 22 20 5b |....\"..|..\"." [|
|00000d00| 69 6e 74 65 67 65 72 2d | 6f 72 2d 63 68 61 72 2d |integer-|or-char-|
|00000d10| 70 20 61 72 67 20 63 63 | 6c 2d 63 68 65 63 6b 2d |p arg cc|l-check-|
|00000d20| 63 6f 6e 73 74 61 6e 74 | 20 63 6d 64 20 63 63 6c |constant| cmd ccl|
|00000d30| 2d 63 68 65 63 6b 2d 72 | 65 67 69 73 74 65 72 5d |-check-r|egister]|
|00000d40| 20 33 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 | 3]).(de|falias '|
|00000d50| 63 63 6c 2d 63 68 65 63 | 6b 2d 63 6f 6d 70 69 6c |ccl-chec|k-compil|
|00000d60| 65 2d 66 75 6e 63 74 69 | 6f 6e 20 23 5b 28 61 72 |e-functi|on #[(ar|
|00000d70| 67 20 63 6d 64 29 20 22 | 08 c1 4e ae 84 c2 c3 0c |g cmd) "|..N.....|
|00000d80| 5c 22 87 22 20 5b 61 72 | 67 20 63 63 6c 2d 63 6f |\"." [ar|g ccl-co|
|00000d90| 6d 70 69 6c 65 2d 66 75 | 6e 63 74 69 6f 6e 20 65 |mpile-fu|nction e|
|00000da0| 72 72 6f 72 20 22 43 43 | 4c 3a 20 49 6e 76 61 6c |rror "CC|L: Inval|
|00000db0| 69 64 20 63 6f 6d 6d 61 | 6e 64 3a 20 25 73 22 20 |id comma|nd: %s" |
|00000dc0| 63 6d 64 5d 20 33 5d 29 | 0a 28 64 65 66 61 6c 69 |cmd] 3])|.(defali|
|00000dd0| 61 73 20 27 63 63 6c 2d | 63 6f 6d 70 69 6c 65 2d |as 'ccl-|compile-|
|00000de0| 31 20 23 5b 28 63 6d 64 | 2d 6c 69 73 74 29 20 22 |1 #[(cmd|-list) "|
|00000df0| c0 19 5c 6e 3c ab 88 5c | 6e ab 88 5c 6e 40 39 ab |..\n<..\|n..\n@9.|
|00000e00| 83 5c 6e 43 12 5c 6e ad | d7 5c 6e 40 11 c3 09 21 |.\nC.\n.|.\n@...!|
|00000e10| ab 89 c4 c5 c6 09 45 21 | 88 aa bf 09 3b ab 88 c7 |......E!|....;...|
|00000e20| c8 09 44 21 88 aa b3 09 | 3c ab aa 09 41 40 c6 61 |..D!....|<...A@.a|
|00000e30| ab 86 c4 09 21 88 aa a2 | 09 41 40 39 ab 8d 09 41 |....!...|.A@9...A|
|00000e40| 40 c9 4e ab 86 ca 09 21 | 88 aa 8f cb 09 40 09 5c |@.N....!|.....@.\|
|00000e50| 22 09 21 88 aa 85 cc cd | 09 5c 22 88 5c 6e 41 89 |".!.....|.\".\nA.|
|00000e60| 12 ac 2a c0 29 87 22 20 | 5b 6e 69 6c 20 63 6d 64 |..*.)." |[nil cmd|
|00000e70| 20 63 6d 64 2d 6c 69 73 | 74 20 69 6e 74 65 67 65 | cmd-lis|t intege|
|00000e80| 72 2d 6f 72 2d 63 68 61 | 72 2d 70 20 63 63 6c 2d |r-or-cha|r-p ccl-|
|00000e90| 63 6f 6d 70 69 6c 65 2d | 73 65 74 20 72 30 20 3d |compile-|set r0 =|
|00000ea0| 20 63 63 6c 2d 63 6f 6d | 70 69 6c 65 2d 77 72 69 | ccl-com|pile-wri|
|00000eb0| 74 65 2d 73 74 72 69 6e | 67 20 77 72 69 74 65 20 |te-strin|g write |
|00000ec0| 63 63 6c 2d 73 65 6c 66 | 2d 61 72 69 74 68 2d 63 |ccl-self|-arith-c|
|00000ed0| 6f 64 65 20 63 63 6c 2d | 63 6f 6d 70 69 6c 65 2d |ode ccl-|compile-|
|00000ee0| 73 65 6c 66 2d 73 65 74 | 20 63 63 6c 2d 63 68 65 |self-set| ccl-che|
|00000ef0| 63 6b 2d 63 6f 6d 70 69 | 6c 65 2d 66 75 6e 63 74 |ck-compi|le-funct|
|00000f00| 69 6f 6e 20 65 72 72 6f | 72 20 22 43 43 4c 3a 20 |ion erro|r "CCL: |
|00000f10| 49 6e 76 61 6c 69 64 20 | 63 6f 6d 6d 61 6e 64 3a |Invalid |command:|
|00000f20| 20 25 73 22 5d 20 35 5d | 29 0a 28 64 65 66 61 6c | %s"] 5]|).(defal|
|00000f30| 69 61 73 20 27 63 63 6c | 2d 63 6f 6d 70 69 6c 65 |ias 'ccl|-compile|
|00000f40| 2d 73 65 74 20 23 5b 28 | 63 6d 64 29 20 22 c0 09 |-set #[(|cmd) "..|
|00000f50| 40 09 5c 22 c2 09 38 1b | 1c 0b 3c ab 86 c5 0c 0b |@.\"..8.|..<.....|
|00000f60| 5c 22 aa ef c6 0b 21 ab | 9c c7 0b 09 5c 22 88 0b |\"....!.|....\"..|
|00000f70| c8 57 ab 87 c9 ca 0c 0b | 23 aa d9 c9 cb 0c cc 23 |.W......|#......#|
|00000f80| 88 cd 0b 21 aa ce c0 0b | 09 5c 22 88 ce 09 38 1e |...!....|.\"...8.|
|00000f90| 0f d0 0e 0f 21 ab b8 cc | 0e 0f 47 1e 11 1e 12 c9 |....!...|..G.....|
|00000fa0| d3 0c 0b d4 4e 23 88 cd | 0e 11 21 88 0e 12 0e 11 |....N#..|..!.....|
|00000fb0| 57 ad 99 c7 0e 0f 0e 12 | 48 09 5c 22 88 cd 0e 0f |W.......|H.\"....|
|00000fc0| 0e 12 48 21 88 0e 12 54 | 89 16 12 aa 62 2a aa 85 |..H!...T|....b*..|
|00000fd0| c9 d5 0c 0b 23 29 2a 87 | 22 20 5b 63 63 6c 2d 63 |....#)*.|" [ccl-c|
|00000fe0| 68 65 63 6b 2d 72 65 67 | 69 73 74 65 72 20 63 6d |heck-reg|ister cm|
|00000ff0| 64 20 32 20 72 69 67 68 | 74 20 72 72 72 20 63 63 |d 2 righ|t rrr cc|
|00001000| 6c 2d 63 6f 6d 70 69 6c | 65 2d 65 78 70 72 65 73 |l-compil|e-expres|
|00001010| 73 69 6f 6e 20 69 6e 74 | 65 67 65 72 2d 6f 72 2d |sion int|eger-or-|
|00001020| 63 68 61 72 2d 70 20 63 | 63 6c 2d 63 68 65 63 6b |char-p c|cl-check|
|00001030| 2d 63 6f 6e 73 74 61 6e | 74 20 35 32 34 32 38 38 |-constan|t 524288|
|00001040| 20 63 63 6c 2d 65 6d 62 | 65 64 2d 63 6f 64 65 20 | ccl-emb|ed-code |
|00001050| 73 65 74 2d 63 73 20 73 | 65 74 2d 63 6c 20 30 20 |set-cs s|et-cl 0 |
|00001060| 63 63 6c 2d 65 6d 62 65 | 64 2d 63 6f 6e 73 74 20 |ccl-embe|d-const |
|00001070| 33 20 61 72 79 20 76 65 | 63 74 6f 72 70 20 6c 65 |3 ary ve|ctorp le|
|00001080| 6e 20 69 20 73 65 74 2d | 61 20 63 63 6c 2d 72 65 |n i set-|a ccl-re|
|00001090| 67 69 73 74 65 72 2d 6e | 75 6d 62 65 72 20 73 65 |gister-n|umber se|
|000010a0| 74 2d 72 5d 20 36 5d 29 | 0a 28 64 65 66 61 6c 69 |t-r] 6])|.(defali|
|000010b0| 61 73 20 27 63 63 6c 2d | 63 6f 6d 70 69 6c 65 2d |as 'ccl-|compile-|
|000010c0| 73 65 6c 66 2d 73 65 74 | 20 23 5b 28 63 6d 64 29 |self-set| #[(cmd)|
|000010d0| 20 22 c0 09 40 09 5c 22 | c2 09 38 1b 1c 0b 3c ab | "..@.\"|..8...<.|
|000010e0| 87 c5 c6 0b 5c 22 88 c6 | 13 c5 0c 89 c7 c8 09 41 |....\"..|.......A|
|000010f0| 40 21 c9 ca 4f 21 0b 45 | 5c 22 2a 87 22 20 5b 63 |@!..O!.E|\"*." [c|
|00001100| 63 6c 2d 63 68 65 63 6b | 2d 72 65 67 69 73 74 65 |cl-check|-registe|
|00001110| 72 20 63 6d 64 20 32 20 | 72 69 67 68 74 20 72 72 |r cmd 2 |right rr|
|00001120| 72 20 63 63 6c 2d 63 6f | 6d 70 69 6c 65 2d 65 78 |r ccl-co|mpile-ex|
|00001130| 70 72 65 73 73 69 6f 6e | 20 72 37 20 69 6e 74 65 |pression| r7 inte|
|00001140| 72 6e 20 73 79 6d 62 6f | 6c 2d 6e 61 6d 65 20 30 |rn symbo|l-name 0|
|00001150| 20 2d 31 5d 20 37 5d 29 | 0a 28 64 65 66 61 6c 69 | -1] 7])|.(defali|
|00001160| 61 73 20 27 63 63 6c 2d | 63 6f 6d 70 69 6c 65 2d |as 'ccl-|compile-|
|00001170| 65 78 70 72 65 73 73 69 | 6f 6e 20 23 5b 28 72 72 |expressi|on #[(rr|
|00001180| 72 20 65 78 70 72 29 20 | 22 08 40 c1 08 38 1a 89 |r expr) |".@..8..|
|00001190| 1b 3c ab 87 c4 c5 0b 5c | 22 88 c5 13 0e 06 0b 61 |.<.....\|"......a|
|000011a0| ab b0 c7 5c 6e 21 ab 9b | 5c 6e c8 57 ab 89 c9 ca |...\n!..|\n.W....|
|000011b0| 0e 06 5c 6e 23 88 aa c5 | c9 cb 0e 06 cc 23 88 cd |..\n#...|.....#..|
|000011c0| 5c 6e 21 88 aa b8 ce 5c | 6e 08 5c 22 88 c9 cf 0e |\n!....\|n.\"....|
|000011d0| 06 5c 6e d0 4e 23 88 aa | a8 c7 5c 6e 21 ab 8f c9 |.\n.N#..|..\n!...|
|000011e0| d1 0e 06 0b d0 4e 23 88 | cd 5c 6e 21 88 aa 94 ce |.....N#.|.\n!....|
|000011f0| 5c 6e 08 5c 22 88 c9 d2 | 0e 06 0b d0 4e 23 88 cd |\n.\"...|....N#..|
|00001200| 5c 6e d0 4e 21 88 cd 08 | 41 40 d3 4e 21 2a 87 22 |\n.N!...|A@.N!*."|
|00001210| 20 5b 65 78 70 72 20 32 | 20 72 69 67 68 74 20 6c | [expr 2| right l|
|00001220| 65 66 74 20 63 63 6c 2d | 63 6f 6d 70 69 6c 65 2d |eft ccl-|compile-|
|00001230| 65 78 70 72 65 73 73 69 | 6f 6e 20 72 37 20 72 72 |expressi|on r7 rr|
|00001240| 72 20 69 6e 74 65 67 65 | 72 2d 6f 72 2d 63 68 61 |r intege|r-or-cha|
|00001250| 72 2d 70 20 33 32 37 36 | 38 20 63 63 6c 2d 65 6d |r-p 3276|8 ccl-em|
|00001260| 62 65 64 2d 63 6f 64 65 | 20 73 65 74 2d 73 65 6c |bed-code| set-sel|
|00001270| 66 2d 63 73 20 73 65 74 | 2d 73 65 6c 66 2d 63 6c |f-cs set|-self-cl|
|00001280| 20 30 20 63 63 6c 2d 65 | 6d 62 65 64 2d 63 6f 6e | 0 ccl-e|mbed-con|
|00001290| 73 74 20 63 63 6c 2d 63 | 68 65 63 6b 2d 72 65 67 |st ccl-c|heck-reg|
|000012a0| 69 73 74 65 72 20 73 65 | 74 2d 73 65 6c 66 2d 72 |ister se|t-self-r|
|000012b0| 20 63 63 6c 2d 72 65 67 | 69 73 74 65 72 2d 6e 75 | ccl-reg|ister-nu|
|000012c0| 6d 62 65 72 20 73 65 74 | 2d 65 78 70 72 2d 63 6c |mber set|-expr-cl|
|000012d0| 20 73 65 74 2d 65 78 70 | 72 2d 72 20 63 63 6c 2d | set-exp|r-r ccl-|
|000012e0| 61 72 69 74 68 2d 63 6f | 64 65 5d 20 36 5d 29 0a |arith-co|de] 6]).|
|000012f0| 28 64 65 66 61 6c 69 61 | 73 20 27 63 63 6c 2d 63 |(defalia|s 'ccl-c|
|00001300| 6f 6d 70 69 6c 65 2d 77 | 72 69 74 65 2d 73 74 72 |ompile-w|rite-str|
|00001310| 69 6e 67 20 23 5b 28 63 | 6d 64 29 20 22 08 47 c1 |ing #[(c|md) ".G.|
|00001320| 55 ac 85 c2 c3 08 5c 22 | 88 08 41 40 89 1c 47 1d |U.....\"|..A@..G.|
|00001330| c6 1e 07 c8 c9 c6 89 23 | 88 ca 0d 21 88 0e 07 0d |.......#|...!....|
|00001340| 57 ad 8f ca 0c 0e 07 48 | 21 88 0e 07 54 89 16 07 |W......H|!...T...|
|00001350| aa 6d 2b 87 22 20 5b 63 | 6d 64 20 32 20 65 72 72 |.m+." [c|md 2 err|
|00001360| 6f 72 20 22 43 43 4c 3a | 20 49 6e 76 61 6c 69 64 |or "CCL:| Invalid|
|00001370| 20 6e 75 6d 62 65 72 20 | 6f 66 20 61 72 67 75 6d | number |of argum|
|00001380| 65 6e 74 73 3a 20 25 73 | 22 20 73 74 72 20 6c 65 |ents: %s|" str le|
|00001390| 6e 20 30 20 69 20 63 63 | 6c 2d 65 6d 62 65 64 2d |n 0 i cc|l-embed-|
|000013a0| 63 6f 64 65 20 77 72 69 | 74 65 2d 73 20 63 63 6c |code wri|te-s ccl|
|000013b0| 2d 65 6d 62 65 64 2d 63 | 6f 6e 73 74 5d 20 35 5d |-embed-c|onst] 5]|
|000013c0| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 63 63 6c |).(defal|ias 'ccl|
|000013d0| 2d 63 6f 6d 70 69 6c 65 | 2d 69 66 20 23 5b 28 63 |-compile|-if #[(c|
|000013e0| 6d 64 29 20 22 08 47 c1 | 55 ac 8b 08 47 c2 55 ac |md) ".G.|U...G.U.|
|000013f0| 85 c3 c4 08 5c 22 88 08 | 41 40 c5 08 38 c1 08 38 |....\"..|A@..8..8|
|00001400| c6 89 89 1e 07 1e 08 1e | 09 1e 5c 6e 1e 0b 89 1e |........|..\n....|
|00001410| 0c 3c ab 9e 0e 0c 40 3c | ab 98 cd ce 0e 0c 40 5c |.<....@<|......@\|
|00001420| 22 88 ce 0e 0c 41 42 16 | 0c 08 40 0e 0c 08 41 41 |"....AB.|..@...AA|
|00001430| 42 42 10 0e 0f 16 09 d0 | 0e 0c 3c ab 83 c1 aa 81 |BB......|..<.....|
|00001440| d1 21 88 d2 0e 0b 21 88 | 0e 5c 6e ac 86 0e 0f 16 |.!....!.|.\n.....|
|00001450| 08 aa 9a 0e 0f 16 07 d3 | d4 21 88 0e 0f 16 08 d2 |........|.!......|
|00001460| 0e 5c 6e 21 88 d5 d6 d4 | 0e 0f 0e 07 24 88 0e 0c |.\n!....|....$...|
|00001470| 39 ab 8b d5 d7 0e 0c 0e | 08 0e 09 24 aa c9 c5 0e |9.......|...$....|
|00001480| 0c 38 1e 18 d9 0e 18 21 | ab 95 d5 da 0e 0c 40 0e |.8.....!|......@.|
|00001490| 08 0e 09 24 88 d3 0e 18 | 0e 09 54 5c 22 88 aa 9b |...$....|..T\"...|
|000014a0| db 0e 18 08 5c 22 88 d5 | dc 0e 0c 40 0e 08 0e 09 |....\"..|...@....|
|000014b0| 24 88 d3 0e 18 dd 4e 0e | 09 54 5c 22 88 d3 0e 0c |$.....N.|.T\"....|
|000014c0| 41 40 de 4e 0e 09 c5 5c | 5c 5c 22 29 2e 06 87 22 |A@.N...\|\\")..."|
|000014d0| 20 5b 63 6d 64 20 33 20 | 34 20 65 72 72 6f 72 20 | [cmd 3 |4 error |
|000014e0| 22 43 43 4c 3a 20 49 6e | 76 61 6c 69 64 20 6e 75 |"CCL: In|valid nu|
|000014f0| 6d 62 65 72 20 6f 66 20 | 61 72 67 75 6d 65 6e 74 |mber of |argument|
|00001500| 73 3a 20 25 73 22 20 32 | 20 6e 69 6c 20 69 63 32 |s: %s" 2| nil ic2|
|00001510| 20 69 63 31 20 69 63 30 | 20 66 61 6c 73 65 2d 63 | ic1 ic0| false-c|
|00001520| 6d 64 73 20 74 72 75 65 | 2d 63 6d 64 73 20 63 6f |mds true|-cmds co|
|00001530| 6e 64 69 74 69 6f 6e 20 | 63 63 6c 2d 63 6f 6d 70 |ndition |ccl-comp|
|00001540| 69 6c 65 2d 65 78 70 72 | 65 73 73 69 6f 6e 20 72 |ile-expr|ession r|
|00001550| 37 20 63 63 6c 2d 63 75 | 72 72 65 6e 74 2d 69 63 |7 ccl-cu|rrent-ic|
|00001560| 20 63 63 6c 2d 65 6d 62 | 65 64 2d 6e 6f 70 20 31 | ccl-emb|ed-nop 1|
|00001570| 20 63 63 6c 2d 63 6f 6d | 70 69 6c 65 2d 31 20 63 | ccl-com|pile-1 c|
|00001580| 63 6c 2d 65 6d 62 65 64 | 2d 63 6f 6e 73 74 20 30 |cl-embed|-const 0|
|00001590| 20 63 63 6c 2d 65 6d 62 | 65 64 2d 63 6f 64 65 20 | ccl-emb|ed-code |
|000015a0| 6a 75 6d 70 20 6a 75 6d | 70 2d 63 6f 6e 64 20 61 |jump jum|p-cond a|
|000015b0| 72 67 20 69 6e 74 65 67 | 65 72 2d 6f 72 2d 63 68 |rg integ|er-or-ch|
|000015c0| 61 72 2d 70 20 6a 75 6d | 70 2d 63 6f 6e 64 2d 63 |ar-p jum|p-cond-c|
|000015d0| 20 63 63 6c 2d 63 68 65 | 63 6b 2d 72 65 67 69 73 | ccl-che|ck-regis|
|000015e0| 74 65 72 20 6a 75 6d 70 | 2d 63 6f 6e 64 2d 72 20 |ter jump|-cond-r |
|000015f0| 63 63 6c 2d 72 65 67 69 | 73 74 65 72 2d 6e 75 6d |ccl-regi|ster-num|
|00001600| 62 65 72 20 63 63 6c 2d | 61 72 69 74 68 2d 63 6f |ber ccl-|arith-co|
|00001610| 64 65 5d 20 37 5d 29 0a | 28 64 65 66 61 6c 69 61 |de] 7]).|(defalia|
|00001620| 73 20 27 63 63 6c 2d 63 | 6f 6d 70 69 6c 65 2d 62 |s 'ccl-c|ompile-b|
|00001630| 72 61 6e 63 68 20 23 5b | 28 63 6d 64 29 20 22 08 |ranch #[|(cmd) ".|
|00001640| 47 c1 57 ab 85 c2 c3 08 | 5c 22 88 08 41 40 3c ab |G.W.....|\"..A@<.|
|00001650| 90 c4 c5 08 41 40 5c 22 | 88 08 40 c5 08 41 41 42 |....A@\"|..@..AAB|
|00001660| 42 10 c6 08 21 87 22 20 | 5b 63 6d 64 20 33 20 65 |B...!." |[cmd 3 e|
|00001670| 72 72 6f 72 20 22 43 43 | 4c 3a 20 49 6e 76 61 6c |rror "CC|L: Inval|
|00001680| 69 64 20 6e 75 6d 62 65 | 72 20 6f 66 20 61 72 67 |id numbe|r of arg|
|00001690| 75 6d 65 6e 74 73 3a 20 | 25 73 22 20 63 63 6c 2d |uments: |%s" ccl-|
|000016a0| 63 6f 6d 70 69 6c 65 2d | 65 78 70 72 65 73 73 69 |compile-|expressi|
|000016b0| 6f 6e 20 72 37 20 63 63 | 6c 2d 63 6f 6d 70 69 6c |on r7 cc|l-compil|
|000016c0| 65 2d 62 72 61 6e 63 68 | 2d 31 5d 20 33 5d 29 0a |e-branch|-1] 3]).|
|000016d0| 28 64 65 66 61 6c 69 61 | 73 20 27 63 63 6c 2d 63 |(defalia|s 'ccl-c|
|000016e0| 6f 6d 70 69 6c 65 2d 72 | 65 61 64 2d 62 72 61 6e |ompile-r|ead-bran|
|000016f0| 63 68 20 23 5b 28 63 6d | 64 29 20 22 c0 09 21 87 |ch #[(cm|d) "..!.|
|00001700| 22 20 5b 63 63 6c 2d 63 | 6f 6d 70 69 6c 65 2d 62 |" [ccl-c|ompile-b|
|00001710| 72 61 6e 63 68 2d 31 20 | 63 6d 64 5d 20 32 5d 29 |ranch-1 |cmd] 2])|
|00001720| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 63 63 6c 2d |.(defali|as 'ccl-|
|00001730| 63 6f 6d 70 69 6c 65 2d | 62 72 61 6e 63 68 2d 31 |compile-|branch-1|
|00001740| 20 23 5b 28 63 6d 64 29 | 20 22 08 47 c1 57 ab 85 | #[(cmd)| ".G.W..|
|00001750| c2 c3 08 5c 22 88 c4 08 | 41 40 08 5c 22 08 41 41 |...\"...|A@.\".AA|
|00001760| c5 89 89 89 89 1e 06 1e | 07 1e 08 1e 09 1e 5c 6e |........|......\n|
|00001770| 1e 0b 1e 0c cd 08 40 0e | 0c 08 47 ce 5a 23 88 0e |......@.|..G.Z#..|
|00001780| 0f 16 09 d0 08 47 53 21 | 88 d1 16 5c 6e 0e 0b ab |.....GS!|...\n...|
|00001790| a7 d2 0e 0f 0e 09 0e 5c | 6e 5c 5c 5c 22 88 d3 0e |.......\|n\\\"...|
|000017a0| 0b 40 21 88 0e 0f 0e 06 | 42 16 06 d0 20 88 0e 5c |.@!.....|B... ..\|
|000017b0| 6e 54 16 5c 6e 0e 0b 41 | 89 16 0b ac 59 0e 06 41 |nT.\n..A|....Y..A|
|000017c0| 16 06 0e 0f 53 16 0f 0e | 06 ab 92 cd d4 d1 0e 0f |....S...|........|
|000017d0| 0e 06 40 24 88 0e 06 41 | 89 16 06 ac 6e d2 0e 0f |..@$...A|....n...|
|000017e0| 0e 09 0e 5c 6e 5c 5c 5c | 22 2e 07 87 22 20 5b 63 |...\n\\\|"..." [c|
|000017f0| 6d 64 20 33 20 65 72 72 | 6f 72 20 22 43 43 4c 3a |md 3 err|or "CCL:|
|00001800| 20 49 6e 76 61 6c 69 64 | 20 6e 75 6d 62 65 72 20 | Invalid| number |
|00001810| 6f 66 20 61 72 67 75 6d | 65 6e 74 73 3a 20 25 73 |of argum|ents: %s|
|00001820| 22 20 63 63 6c 2d 63 68 | 65 63 6b 2d 72 65 67 69 |" ccl-ch|eck-regi|
|00001830| 73 74 65 72 20 6e 69 6c | 20 62 72 61 6e 63 68 2d |ster nil| branch-|
|00001840| 74 61 69 6c 73 20 69 63 | 32 20 69 63 31 20 69 63 |tails ic|2 ic1 ic|
|00001850| 30 20 69 20 62 72 61 6e | 63 68 65 73 20 72 72 72 |0 i bran|ches rrr|
|00001860| 20 63 63 6c 2d 65 6d 62 | 65 64 2d 63 6f 64 65 20 | ccl-emb|ed-code |
|00001870| 32 20 63 63 6c 2d 63 75 | 72 72 65 6e 74 2d 69 63 |2 ccl-cu|rrent-ic|
|00001880| 20 63 63 6c 2d 65 6d 62 | 65 64 2d 6e 6f 70 20 30 | ccl-emb|ed-nop 0|
|00001890| 20 63 63 6c 2d 65 6d 62 | 65 64 2d 63 6f 6e 73 74 | ccl-emb|ed-const|
|000018a0| 20 63 63 6c 2d 63 6f 6d | 70 69 6c 65 2d 31 20 6a | ccl-com|pile-1 j|
|000018b0| 75 6d 70 5d 20 38 5d 29 | 0a 28 64 65 66 61 6c 69 |ump] 8])|.(defali|
|000018c0| 61 73 20 27 63 63 6c 2d | 63 6f 6d 70 69 6c 65 2d |as 'ccl-|compile-|
|000018d0| 6c 6f 6f 70 20 23 5b 28 | 63 6d 64 29 20 22 08 47 |loop #[(|cmd) ".G|
|000018e0| c1 57 ab 85 c2 c3 08 5c | 22 88 0c c5 1e 06 1e 07 |.W.....\|".......|
|000018f0| 08 41 89 10 ab 8b c8 08 | 40 21 88 08 41 89 10 ac |.A......|@!..A...|
|00001900| 75 0e 06 ad 92 c9 ca cb | 0c 0e 06 40 24 88 0e 06 |u.......|...@$...|
|00001910| 41 89 16 06 ac 6f c5 2a | 87 22 20 5b 63 6d 64 20 |A....o.*|." [cmd |
|00001920| 32 20 65 72 72 6f 72 20 | 22 43 43 4c 3a 20 49 6e |2 error |"CCL: In|
|00001930| 76 61 6c 69 64 20 6e 75 | 6d 62 65 72 20 6f 66 20 |valid nu|mber of |
|00001940| 61 72 67 75 6d 65 6e 74 | 73 3a 20 25 73 22 20 63 |argument|s: %s" c|
|00001950| 63 6c 2d 63 75 72 72 65 | 6e 74 2d 69 63 20 6e 69 |cl-curre|nt-ic ni|
|00001960| 6c 20 63 63 6c 2d 62 72 | 65 61 6b 73 20 63 63 6c |l ccl-br|eaks ccl|
|00001970| 2d 6c 6f 6f 70 2d 68 65 | 61 64 20 63 63 6c 2d 63 |-loop-he|ad ccl-c|
|00001980| 6f 6d 70 69 6c 65 2d 31 | 20 63 63 6c 2d 65 6d 62 |ompile-1| ccl-emb|
|00001990| 65 64 2d 63 6f 64 65 20 | 6a 75 6d 70 20 30 5d 20 |ed-code |jump 0] |
|000019a0| 36 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 63 |6]).(def|alias 'c|
|000019b0| 63 6c 2d 63 6f 6d 70 69 | 6c 65 2d 62 72 65 61 6b |cl-compi|le-break|
|000019c0| 20 23 5b 28 63 6d 64 29 | 20 22 08 47 c1 55 ac 85 | #[(cmd)| ".G.U..|
|000019d0| c2 c3 08 5c 22 88 0c ac | 85 c2 c5 08 5c 22 88 0e |...\"...|....\"..|
|000019e0| 06 0e 07 42 16 07 c8 20 | 87 22 20 5b 63 6d 64 20 |...B... |." [cmd |
|000019f0| 31 20 65 72 72 6f 72 20 | 22 43 43 4c 3a 20 49 6e |1 error |"CCL: In|
|00001a00| 76 61 6c 69 64 20 6e 75 | 6d 62 65 72 20 6f 66 20 |valid nu|mber of |
|00001a10| 61 72 67 75 6d 65 6e 74 | 73 3a 20 25 73 22 20 63 |argument|s: %s" c|
|00001a20| 63 6c 2d 6c 6f 6f 70 2d | 68 65 61 64 20 22 43 43 |cl-loop-|head "CC|
|00001a30| 4c 3a 20 4e 6f 20 6f 75 | 74 65 72 20 6c 6f 6f 70 |L: No ou|ter loop|
|00001a40| 3a 20 25 73 22 20 63 63 | 6c 2d 63 75 72 72 65 6e |: %s" cc|l-curren|
|00001a50| 74 2d 69 63 20 63 63 6c | 2d 62 72 65 61 6b 73 20 |t-ic ccl|-breaks |
|00001a60| 63 63 6c 2d 65 6d 62 65 | 64 2d 6e 6f 70 5d 20 33 |ccl-embe|d-nop] 3|
|00001a70| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 63 63 |]).(defa|lias 'cc|
|00001a80| 6c 2d 63 6f 6d 70 69 6c | 65 2d 72 65 70 65 61 74 |l-compil|e-repeat|
|00001a90| 20 23 5b 28 63 6d 64 29 | 20 22 08 47 c1 55 ac 85 | #[(cmd)| ".G.U..|
|00001aa0| c2 c3 08 5c 22 88 0c ac | 85 c2 c5 08 5c 22 88 c6 |...\"...|....\"..|
|00001ab0| c7 c8 0c 23 87 22 20 5b | 63 6d 64 20 31 20 65 72 |...#." [|cmd 1 er|
|00001ac0| 72 6f 72 20 22 43 43 4c | 3a 20 49 6e 76 61 6c 69 |ror "CCL|: Invali|
|00001ad0| 64 20 6e 75 6d 62 65 72 | 20 6f 66 20 61 72 67 75 |d number| of argu|
|00001ae0| 6d 65 6e 74 73 3a 20 25 | 73 22 20 63 63 6c 2d 6c |ments: %|s" ccl-l|
|00001af0| 6f 6f 70 2d 68 65 61 64 | 20 22 43 43 4c 3a 20 4e |oop-head| "CCL: N|
|00001b00| 6f 20 6f 75 74 65 72 20 | 6c 6f 6f 70 3a 20 25 73 |o outer |loop: %s|
|00001b10| 22 20 63 63 6c 2d 65 6d | 62 65 64 2d 63 6f 64 65 |" ccl-em|bed-code|
|00001b20| 20 6a 75 6d 70 20 30 5d | 20 34 5d 29 0a 28 64 65 | jump 0]| 4]).(de|
|00001b30| 66 61 6c 69 61 73 20 27 | 63 63 6c 2d 63 6f 6d 70 |falias '|ccl-comp|
|00001b40| 69 6c 65 2d 77 72 69 74 | 65 2d 72 65 70 65 61 74 |ile-writ|e-repeat|
|00001b50| 20 23 5b 28 63 6d 64 29 | 20 22 08 47 c1 55 ac 85 | #[(cmd)| ".G.U..|
|00001b60| c2 c3 08 5c 22 88 0c ac | 85 c2 c5 08 5c 22 88 08 |...\"...|....\"..|
|00001b70| 41 40 1e 06 c7 0e 06 21 | ab 8c c8 c9 ca 0c 23 88 |A@.....!|......#.|
|00001b80| cb 0e 06 21 aa bf 0e 06 | 3b ab ae c8 cc ca 0c 23 |...!....|;......#|
|00001b90| 88 ca 0e 06 47 1e 0d 1e | 0e cb 0e 06 47 21 88 0e |....G...|....G!..|
|00001ba0| 0e 0e 0d 57 ad 90 cb 0e | 06 0e 0e 48 21 88 0e 0e |...W....|...H!...|
|00001bb0| 54 89 16 0e aa 6b 2a aa | 8c cf 0e 06 08 5c 22 88 |T....k*.|.....\".|
|00001bc0| c8 d0 0e 06 0c 23 29 87 | 22 20 5b 63 6d 64 20 32 |.....#).|" [cmd 2|
|00001bd0| 20 65 72 72 6f 72 20 22 | 43 43 4c 3a 20 49 6e 76 | error "|CCL: Inv|
|00001be0| 61 6c 69 64 20 6e 75 6d | 62 65 72 20 6f 66 20 61 |alid num|ber of a|
|00001bf0| 72 67 75 6d 65 6e 74 73 | 3a 20 25 73 22 20 63 63 |rguments|: %s" cc|
|00001c00| 6c 2d 6c 6f 6f 70 2d 68 | 65 61 64 20 22 43 43 4c |l-loop-h|ead "CCL|
|00001c10| 3a 20 4e 6f 20 6f 75 74 | 65 72 20 6c 6f 6f 70 3a |: No out|er loop:|
|00001c20| 20 25 73 22 20 61 72 67 | 20 69 6e 74 65 67 65 72 | %s" arg| integer|
|00001c30| 2d 6f 72 2d 63 68 61 72 | 2d 70 20 63 63 6c 2d 65 |-or-char|-p ccl-e|
|00001c40| 6d 62 65 64 2d 63 6f 64 | 65 20 77 72 69 74 65 2d |mbed-cod|e write-|
|00001c50| 63 2d 6a 75 6d 70 20 30 | 20 63 63 6c 2d 65 6d 62 |c-jump 0| ccl-emb|
|00001c60| 65 64 2d 63 6f 6e 73 74 | 20 77 72 69 74 65 2d 73 |ed-const| write-s|
|00001c70| 2d 6a 75 6d 70 20 6c 65 | 6e 20 69 20 63 63 6c 2d |-jump le|n i ccl-|
|00001c80| 63 68 65 63 6b 2d 72 65 | 67 69 73 74 65 72 20 77 |check-re|gister w|
|00001c90| 72 69 74 65 2d 6a 75 6d | 70 5d 20 35 5d 29 0a 28 |rite-jum|p] 5]).(|
|00001ca0| 64 65 66 61 6c 69 61 73 | 20 27 63 63 6c 2d 63 6f |defalias| 'ccl-co|
|00001cb0| 6d 70 69 6c 65 2d 77 72 | 69 74 65 2d 72 65 61 64 |mpile-wr|ite-read|
|00001cc0| 2d 72 65 70 65 61 74 20 | 23 5b 28 63 6d 64 29 20 |-repeat |#[(cmd) |
|00001cd0| 22 08 47 c1 57 ac 86 08 | 47 c2 56 ab 85 c3 c4 08 |".G.W...|G.V.....|
|00001ce0| 5c 22 88 0d ac 85 c3 c6 | 08 5c 22 88 c7 08 41 40 |\"......|.\"...A@|
|00001cf0| 08 5c 22 c1 08 38 1e 08 | 1e 09 0e 08 ac 88 ca cb |.\"..8..|........|
|00001d00| 0e 09 0d 23 aa db cc 0e | 08 21 ab 8d ca cd 0e 09 |...#....|.!......|
|00001d10| 0d 23 88 ce 0e 08 21 aa | c8 0e 08 3b ac 86 cf 0e |.#....!.|...;....|
|00001d20| 08 21 ab b7 ca 0e 08 3b | ab 83 d0 aa 81 d1 0e 09 |.!.....;|........|
|00001d30| 0d 23 88 d2 0e 08 47 1e | 13 1e 14 ce 0e 08 47 21 |.#....G.|......G!|
|00001d40| 88 0e 14 0e 13 57 ad 90 | ce 0e 08 0e 14 48 21 88 |.....W..|.....H!.|
|00001d50| 0e 14 54 89 16 14 aa 6b | 2a aa 86 c3 d5 0e 08 08 |..T....k|*.......|
|00001d60| 23 2a 87 22 20 5b 63 6d | 64 20 32 20 33 20 65 72 |#*." [cm|d 2 3 er|
|00001d70| 72 6f 72 20 22 43 43 4c | 3a 20 49 6e 76 61 6c 69 |ror "CCL|: Invali|
|00001d80| 64 20 6e 75 6d 62 65 72 | 20 6f 66 20 61 72 67 75 |d number| of argu|
|00001d90| 6d 65 6e 74 73 3a 20 25 | 73 22 20 63 63 6c 2d 6c |ments: %|s" ccl-l|
|00001da0| 6f 6f 70 2d 68 65 61 64 | 20 22 43 43 4c 3a 20 4e |oop-head| "CCL: N|
|00001db0| 6f 20 6f 75 74 65 72 20 | 6c 6f 6f 70 3a 20 25 73 |o outer |loop: %s|
|00001dc0| 22 20 63 63 6c 2d 63 68 | 65 63 6b 2d 72 65 67 69 |" ccl-ch|eck-regi|
|00001dd0| 73 74 65 72 20 61 72 67 | 20 72 72 72 20 63 63 6c |ster arg| rrr ccl|
|00001de0| 2d 65 6d 62 65 64 2d 63 | 6f 64 65 20 77 72 69 74 |-embed-c|ode writ|
|00001df0| 65 2d 72 65 61 64 2d 6a | 75 6d 70 20 69 6e 74 65 |e-read-j|ump inte|
|00001e00| 67 65 72 2d 6f 72 2d 63 | 68 61 72 2d 70 20 77 72 |ger-or-c|har-p wr|
|00001e10| 69 74 65 2d 63 2d 72 65 | 61 64 2d 6a 75 6d 70 20 |ite-c-re|ad-jump |
|00001e20| 63 63 6c 2d 65 6d 62 65 | 64 2d 63 6f 6e 73 74 20 |ccl-embe|d-const |
|00001e30| 76 65 63 74 6f 72 70 20 | 77 72 69 74 65 2d 73 2d |vectorp |write-s-|
|00001e40| 72 65 61 64 2d 6a 75 6d | 70 20 77 72 69 74 65 2d |read-jum|p write-|
|00001e50| 61 2d 72 65 61 64 2d 6a | 75 6d 70 20 30 20 6c 65 |a-read-j|ump 0 le|
|00001e60| 6e 20 69 20 22 43 43 4c | 3a 20 49 6e 76 61 6c 69 |n i "CCL|: Invali|
|00001e70| 64 65 20 61 72 67 75 6d | 65 6e 74 20 25 73 3a 20 |de argum|ent %s: |
|00001e80| 25 73 22 5d 20 35 5d 29 | 0a 28 64 65 66 61 6c 69 |%s"] 5])|.(defali|
|00001e90| 61 73 20 27 63 63 6c 2d | 63 6f 6d 70 69 6c 65 2d |as 'ccl-|compile-|
|00001ea0| 72 65 61 64 20 23 5b 28 | 63 6d 64 29 20 22 c0 09 |read #[(|cmd) "..|
|00001eb0| 41 40 09 5c 22 1a 09 47 | c3 55 ab 87 c4 c5 5c 6e |A@.\"..G|.U....\n|
|00001ec0| c6 23 aa 95 09 47 c7 55 | ab 8b c4 c8 5c 6e c3 09 |.#...G.U|....\n..|
|00001ed0| 38 c9 4e 23 aa 84 ca cb | 09 5c 22 29 87 22 20 5b |8.N#....|.\")." [|
|00001ee0| 63 63 6c 2d 63 68 65 63 | 6b 2d 72 65 67 69 73 74 |ccl-chec|k-regist|
|00001ef0| 65 72 20 63 6d 64 20 72 | 72 72 20 32 20 63 63 6c |er cmd r|rr 2 ccl|
|00001f00| 2d 65 6d 62 65 64 2d 63 | 6f 64 65 20 72 65 61 64 |-embed-c|ode read|
|00001f10| 31 20 30 20 33 20 72 65 | 61 64 32 20 63 63 6c 2d |1 0 3 re|ad2 ccl-|
|00001f20| 72 65 67 69 73 74 65 72 | 2d 6e 75 6d 62 65 72 20 |register|-number |
|00001f30| 65 72 72 6f 72 20 22 43 | 43 4c 3a 20 49 6e 76 61 |error "C|CL: Inva|
|00001f40| 6c 69 64 20 6e 75 6d 62 | 65 72 20 6f 66 20 61 72 |lid numb|er of ar|
|00001f50| 67 75 6d 65 6e 74 73 3a | 20 25 73 22 5d 20 35 5d |guments:| %s"] 5]|
|00001f60| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 63 63 6c |).(defal|ias 'ccl|
|00001f70| 2d 63 6f 6d 70 69 6c 65 | 2d 72 65 61 64 2d 69 66 |-compile|-read-if|
|00001f80| 20 23 5b 28 63 6d 64 29 | 20 22 08 47 c1 55 ac 8b | #[(cmd)| ".G.U..|
|00001f90| 08 47 c2 55 ac 85 c3 c4 | 08 5c 22 88 08 41 40 1d |.G.U....|.\"..A@.|
|00001fa0| c6 0d 40 08 5c 22 1e 07 | c8 08 38 1e 09 c1 08 38 |..@.\"..|..8....8|
|00001fb0| 1e 5c 6e cb 1e 0c cb 1e | 0d cb 1e 0e 0e 0f 16 0c |.\n.....|........|
|00001fc0| d0 c1 21 88 d1 0e 09 21 | 88 0e 5c 6e ac 86 0e 0f |..!....!|..\n....|
|00001fd0| 16 0d aa 9a 0e 0f 16 0e | d2 d3 21 88 0e 0f 16 0d |........|..!.....|
|00001fe0| d1 0e 5c 6e 21 88 d4 d5 | d3 0e 0f 0e 0e 24 88 c8 |..\n!...|.....$..|
|00001ff0| 0d 38 1e 16 d4 d7 0e 16 | 21 ab 83 d8 aa 81 d9 0e |.8......|!.......|
|00002000| 07 0e 0d 0e 0c 24 88 d2 | d7 0e 16 21 ab 84 0e 16 |.....$..|...!....|
|00002010| aa 84 0e 16 da 4e 0e 0c | 54 5c 22 88 d2 0d 41 40 |.....N..|T\"...A@|
|00002020| db 4e 0e 0c c8 5c 5c 5c | 22 2e 08 87 22 20 5b 63 |.N...\\\|"..." [c|
|00002030| 6d 64 20 33 20 34 20 65 | 72 72 6f 72 20 22 43 43 |md 3 4 e|rror "CC|
|00002040| 4c 3a 20 49 6e 76 61 6c | 69 64 20 6e 75 6d 62 65 |L: Inval|id numbe|
|00002050| 72 20 6f 66 20 61 72 67 | 75 6d 65 6e 74 73 3a 20 |r of arg|uments: |
|00002060| 25 73 22 20 65 78 70 72 | 20 63 63 6c 2d 63 68 65 |%s" expr| ccl-che|
|00002070| 63 6b 2d 72 65 67 69 73 | 74 65 72 20 72 72 72 20 |ck-regis|ter rrr |
|00002080| 32 20 74 72 75 65 2d 63 | 6d 64 73 20 66 61 6c 73 |2 true-c|mds fals|
|00002090| 65 2d 63 6d 64 73 20 6e | 69 6c 20 69 63 30 20 69 |e-cmds n|il ic0 i|
|000020a0| 63 31 20 69 63 32 20 63 | 63 6c 2d 63 75 72 72 65 |c1 ic2 c|cl-curre|
|000020b0| 6e 74 2d 69 63 20 63 63 | 6c 2d 65 6d 62 65 64 2d |nt-ic cc|l-embed-|
|000020c0| 6e 6f 70 20 63 63 6c 2d | 63 6f 6d 70 69 6c 65 2d |nop ccl-|compile-|
|000020d0| 31 20 63 63 6c 2d 65 6d | 62 65 64 2d 63 6f 6e 73 |1 ccl-em|bed-cons|
|000020e0| 74 20 30 20 63 63 6c 2d | 65 6d 62 65 64 2d 63 6f |t 0 ccl-|embed-co|
|000020f0| 64 65 20 6a 75 6d 70 20 | 61 72 67 20 69 6e 74 65 |de jump |arg inte|
|00002100| 67 65 72 2d 6f 72 2d 63 | 68 61 72 2d 70 20 72 65 |ger-or-c|har-p re|
|00002110| 61 64 2d 6a 75 6d 70 2d | 63 6f 6e 64 2d 63 20 72 |ad-jump-|cond-c r|
|00002120| 65 61 64 2d 6a 75 6d 70 | 2d 63 6f 6e 64 2d 72 20 |ead-jump|-cond-r |
|00002130| 63 63 6c 2d 72 65 67 69 | 73 74 65 72 2d 6e 75 6d |ccl-regi|ster-num|
|00002140| 62 65 72 20 63 63 6c 2d | 61 72 69 74 68 2d 63 6f |ber ccl-|arith-co|
|00002150| 64 65 5d 20 35 5d 29 0a | 28 64 65 66 61 6c 69 61 |de] 5]).|(defalia|
|00002160| 73 20 27 63 63 6c 2d 63 | 6f 6d 70 69 6c 65 2d 77 |s 'ccl-c|ompile-w|
|00002170| 72 69 74 65 20 23 5b 28 | 63 6d 64 29 20 22 08 47 |rite #[(|cmd) ".G|
|00002180| c1 55 ac 8b 08 47 c2 55 | ac 85 c3 c4 08 5c 22 88 |.U...G.U|.....\".|
|00002190| 08 41 40 1d c6 0d 21 ab | 8b c7 c8 c9 89 23 88 ca |.A@...!.|.....#..|
|000021a0| 0d 21 aa ee 0d 3b ab 87 | cb cc 0d 44 21 aa e3 cd |.!...;..|...D!...|
|000021b0| 0d 08 5c 22 88 c1 08 38 | 89 1e 0e ab d0 0e 0e 39 |..\"...8|.......9|
|000021c0| ab 90 cd 0e 0e 08 5c 22 | 88 c7 cf 0d 0e 0e d0 4e |......\"|.......N|
|000021d0| 23 aa c0 d1 0e 0e 21 ab | ad c9 0e 0e 47 1e 12 1e |#.....!.|....G...|
|000021e0| 13 c7 d4 0d c9 23 88 ca | 0e 12 21 88 0e 13 0e 12 |.....#..|..!.....|
|000021f0| 57 ad 90 ca 0e 0e 0e 13 | 48 21 88 0e 13 54 89 16 |W.......|H!...T..|
|00002200| 13 aa 6b 2a aa 8d c3 d5 | 0e 0e 08 23 aa 85 c7 d6 |..k*....|...#....|
|00002210| 0d c9 23 29 29 87 22 20 | 5b 63 6d 64 20 32 20 33 |..#))." |[cmd 2 3|
|00002220| 20 65 72 72 6f 72 20 22 | 43 43 4c 3a 20 49 6e 76 | error "|CCL: Inv|
|00002230| 61 6c 69 64 20 6e 75 6d | 62 65 72 20 6f 66 20 61 |alid num|ber of a|
|00002240| 72 67 75 6d 65 6e 74 73 | 3a 20 25 73 22 20 72 72 |rguments|: %s" rr|
|00002250| 72 20 69 6e 74 65 67 65 | 72 2d 6f 72 2d 63 68 61 |r intege|r-or-cha|
|00002260| 72 2d 70 20 63 63 6c 2d | 65 6d 62 65 64 2d 63 6f |r-p ccl-|embed-co|
|00002270| 64 65 20 77 72 69 74 65 | 2d 63 20 30 20 63 63 6c |de write|-c 0 ccl|
|00002280| 2d 65 6d 62 65 64 2d 63 | 6f 6e 73 74 20 63 63 6c |-embed-c|onst ccl|
|00002290| 2d 63 6f 6d 70 69 6c 65 | 2d 77 72 69 74 65 2d 73 |-compile|-write-s|
|000022a0| 74 72 69 6e 67 20 77 72 | 69 74 65 20 63 63 6c 2d |tring wr|ite ccl-|
|000022b0| 63 68 65 63 6b 2d 72 65 | 67 69 73 74 65 72 20 61 |check-re|gister a|
|000022c0| 72 67 20 77 72 69 74 65 | 32 20 63 63 6c 2d 72 65 |rg write|2 ccl-re|
|000022d0| 67 69 73 74 65 72 2d 6e | 75 6d 62 65 72 20 76 65 |gister-n|umber ve|
|000022e0| 63 74 6f 72 70 20 6c 65 | 6e 20 69 20 77 72 69 74 |ctorp le|n i writ|
|000022f0| 65 2d 61 20 22 43 43 4c | 3a 20 49 6e 76 61 6c 69 |e-a "CCL|: Invali|
|00002300| 64 20 61 72 67 75 6d 65 | 6e 74 20 25 73 3a 20 25 |d argume|nt %s: %|
|00002310| 73 22 20 77 72 69 74 65 | 31 5d 20 36 5d 29 0a 28 |s" write|1] 6]).(|
|00002320| 64 65 66 61 6c 69 61 73 | 20 27 63 63 6c 2d 63 6f |defalias| 'ccl-co|
|00002330| 6d 70 69 6c 65 2d 65 6e | 64 20 23 5b 28 63 6d 64 |mpile-en|d #[(cmd|
|00002340| 29 20 22 08 47 c1 55 ac | 85 c2 c3 08 5c 22 88 c4 |) ".G.U.|....\"..|
|00002350| c5 c6 89 23 87 22 20 5b | 63 6d 64 20 31 20 65 72 |...#." [|cmd 1 er|
|00002360| 72 6f 72 20 22 43 43 4c | 3a 20 49 6e 76 61 6c 69 |ror "CCL|: Invali|
|00002370| 64 20 6e 75 6d 62 65 72 | 20 6f 66 20 61 72 67 75 |d number| of argu|
|00002380| 6d 65 6e 74 73 3a 20 25 | 73 22 20 63 63 6c 2d 65 |ments: %|s" ccl-e|
|00002390| 6d 62 65 64 2d 63 6f 64 | 65 20 65 6e 64 20 30 5d |mbed-cod|e end 0]|
|000023a0| 20 34 5d 29 0a 28 62 79 | 74 65 2d 63 6f 64 65 20 | 4]).(by|te-code |
|000023b0| 22 c0 c1 21 ac 82 c2 11 | c1 0b 42 13 c2 87 22 20 |"..!....|..B..." |
|000023c0| 5b 62 6f 75 6e 64 70 20 | 63 63 6c 2d 70 72 6f 67 |[boundp |ccl-prog|
|000023d0| 72 61 6d 2d 76 65 63 74 | 6f 72 2d 64 75 6d 70 20 |ram-vect|or-dump |
|000023e0| 6e 69 6c 20 63 75 72 72 | 65 6e 74 2d 6c 6f 61 64 |nil curr|ent-load|
|000023f0| 2d 6c 69 73 74 5d 20 32 | 29 0a 23 40 33 32 20 44 |-list] 2|).#@32 D|
|00002400| 69 73 61 73 73 65 6d 62 | 6c 65 20 63 6f 6d 70 69 |isassemb|le compi|
|00002410| 6c 65 64 20 43 43 4c 2d | 43 4f 44 45 2e 1f 0a 28 |led CCL-|CODE...(|
|00002420| 64 65 66 61 6c 69 61 73 | 20 27 63 63 6c 2d 64 75 |defalias| 'ccl-du|
|00002430| 6d 70 20 23 5b 28 63 63 | 6c 2d 63 6f 64 65 29 20 |mp #[(cc|l-code) |
|00002440| 22 8a c0 c1 21 71 88 c2 | 20 88 0b 14 0b 47 1d c6 |"...!q..| ....G..|
|00002450| 63 88 c7 16 08 0b c9 48 | c9 56 ab 90 0e 08 0b c9 |c......H|.V......|
|00002460| 48 57 ab 85 ca 20 88 aa | 73 cb 63 88 0e 08 0d 57 |HW... ..|s.c....W|
|00002470| ab 85 ca 20 88 aa 75 2a | cc cd c1 21 21 87 22 20 |... ..u*|...!!." |
|00002480| 5b 67 65 74 2d 62 75 66 | 66 65 72 2d 63 72 65 61 |[get-buf|fer-crea|
|00002490| 74 65 20 22 2a 43 43 4c | 2d 44 75 6d 70 2a 22 20 |te "*CCL|-Dump*" |
|000024a0| 65 72 61 73 65 2d 62 75 | 66 66 65 72 20 63 63 6c |erase-bu|ffer ccl|
|000024b0| 2d 63 6f 64 65 20 63 63 | 6c 2d 70 72 6f 67 72 61 |-code cc|l-progra|
|000024c0| 6d 2d 76 65 63 74 6f 72 | 2d 64 75 6d 70 20 6c 65 |m-vector|-dump le|
|000024d0| 6e 20 22 4d 61 69 6e 3a | 5c 6e 22 20 31 20 63 63 |n "Main:|\n" 1 cc|
|000024e0| 6c 2d 63 75 72 72 65 6e | 74 2d 69 63 20 30 20 63 |l-curren|t-ic 0 c|
|000024f0| 63 6c 2d 64 75 6d 70 2d | 31 20 22 41 74 20 45 4f |cl-dump-|1 "At EO|
|00002500| 46 3a 5c 6e 22 20 64 69 | 73 70 6c 61 79 2d 62 75 |F:\n" di|splay-bu|
|00002510| 66 66 65 72 20 67 65 74 | 2d 62 75 66 66 65 72 5d |ffer get|-buffer]|
|00002520| 20 33 20 28 23 24 20 2e | 20 39 32 31 35 29 5d 29 | 3 (#$ .| 9215)])|
|00002530| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 63 63 6c 2d |.(defali|as 'ccl-|
|00002540| 67 65 74 2d 6e 65 78 74 | 2d 63 6f 64 65 20 23 5b |get-next|-code #[|
|00002550| 6e 69 6c 20 22 08 09 48 | 09 54 11 87 22 20 5b 63 |nil "..H|.T.." [c|
|00002560| 63 6c 2d 70 72 6f 67 72 | 61 6d 2d 76 65 63 74 6f |cl-progr|am-vecto|
|00002570| 72 2d 64 75 6d 70 20 63 | 63 6c 2d 63 75 72 72 65 |r-dump c|cl-curre|
|00002580| 6e 74 2d 69 63 5d 20 32 | 5d 29 0a 28 64 65 66 61 |nt-ic] 2|]).(defa|
|00002590| 6c 69 61 73 20 27 63 63 | 6c 2d 64 75 6d 70 2d 31 |lias 'cc|l-dump-1|
|000025a0| 20 23 5b 6e 69 6c 20 22 | c0 20 19 c2 09 c3 5c 22 | #[nil "|. ....\"|
|000025b0| 1c 0d 0c 48 1e 06 c2 c7 | 09 c8 5c 22 c9 5c 22 1e |...H....|..\".\".|
|000025c0| 5c 6e c7 09 cb 5c 22 1e | 0c cd ce 0e 0f 53 5c 22 |\n...\".|.....S\"|
|000025d0| 63 88 0e 06 d0 4e 0e 5c | 6e 0e 0c 5c 22 2d 87 22 |c....N.\|n..\"-."|
|000025e0| 20 5b 63 63 6c 2d 67 65 | 74 2d 6e 65 78 74 2d 63 | [ccl-ge|t-next-c|
|000025f0| 6f 64 65 20 6f 70 63 6f | 64 65 20 6c 6f 67 61 6e |ode opco|de logan|
|00002600| 64 20 33 31 20 63 6f 64 | 65 20 63 63 6c 2d 6d 61 |d 31 cod|e ccl-ma|
|00002610| 63 68 69 6e 65 2d 63 6f | 64 65 2d 74 61 62 6c 65 |chine-co|de-table|
|00002620| 20 63 6d 64 20 61 73 68 | 20 2d 35 20 37 20 72 72 | cmd ash| -5 7 rr|
|00002630| 72 20 2d 38 20 63 63 20 | 66 6f 72 6d 61 74 20 22 |r -8 cc |format "|
|00002640| 25 34 64 3a 20 22 20 63 | 63 6c 2d 63 75 72 72 65 |%4d: " c|cl-curre|
|00002650| 6e 74 2d 69 63 20 63 63 | 6c 2d 64 75 6d 70 2d 66 |nt-ic cc|l-dump-f|
|00002660| 75 6e 63 74 69 6f 6e 5d | 20 34 5d 29 0a 28 64 65 |unction]| 4]).(de|
|00002670| 66 61 6c 69 61 73 20 27 | 63 63 6c 2d 64 75 6d 70 |falias '|ccl-dump|
|00002680| 2d 73 65 74 2d 63 73 20 | 23 5b 28 72 72 72 20 63 |-set-cs |#[(rrr c|
|00002690| 63 29 20 22 c0 c1 5c 6e | 0b 23 63 87 22 20 5b 66 |c) "..\n|.#c." [f|
|000026a0| 6f 72 6d 61 74 20 22 72 | 25 64 20 3d 20 25 73 5c |ormat "r|%d = %s\|
|000026b0| 6e 22 20 72 72 72 20 63 | 63 5d 20 34 5d 29 0a 28 |n" rrr c|c] 4]).(|
|000026c0| 64 65 66 61 6c 69 61 73 | 20 27 63 63 6c 2d 64 75 |defalias| 'ccl-du|
|000026d0| 6d 70 2d 73 65 74 2d 63 | 6c 20 23 5b 28 72 72 72 |mp-set-c|l #[(rrr|
|000026e0| 20 63 63 29 20 22 c0 20 | 11 c2 c3 0c 09 23 63 87 | cc) ". |.....#c.|
|000026f0| 22 20 5b 63 63 6c 2d 67 | 65 74 2d 6e 65 78 74 2d |" [ccl-g|et-next-|
|00002700| 63 6f 64 65 20 63 63 20 | 66 6f 72 6d 61 74 20 22 |code cc |format "|
|00002710| 72 25 64 20 3d 20 25 73 | 5c 6e 22 20 72 72 72 5d |r%d = %s|\n" rrr]|
|00002720| 20 34 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 | 4]).(de|falias '|
|00002730| 63 63 6c 2d 64 75 6d 70 | 2d 73 65 74 2d 72 20 23 |ccl-dump|-set-r #|
|00002740| 5b 28 72 72 72 20 63 63 | 29 20 22 c0 c1 5c 6e 0b |[(rrr cc|) "..\n.|
|00002750| 23 63 87 22 20 5b 66 6f | 72 6d 61 74 20 22 72 25 |#c." [fo|rmat "r%|
|00002760| 64 20 3d 20 72 25 64 5c | 6e 22 20 72 72 72 20 63 |d = r%d\|n" rrr c|
|00002770| 63 5d 20 34 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |c] 4]).(|defalias|
|00002780| 20 27 63 63 6c 2d 64 75 | 6d 70 2d 73 65 74 2d 61 | 'ccl-du|mp-set-a|
|00002790| 20 23 5b 28 72 72 72 20 | 63 63 29 20 22 c0 20 c1 | #[(rrr |cc) ". .|
|000027a0| 1a 1b c4 c5 0e 06 0e 07 | 0b 24 63 88 c1 1a c1 0b |........|.$c.....|
|000027b0| 57 ab 8d c4 c8 c0 20 5c | 22 63 88 5c 6e 54 89 12 |W..... \|"c.\nT..|
|000027c0| aa 6f 29 c9 63 2a 87 22 | 20 5b 63 63 6c 2d 67 65 |.o).c*."| [ccl-ge|
|000027d0| 74 2d 6e 65 78 74 2d 63 | 6f 64 65 20 30 20 69 20 |t-next-c|ode 0 i |
|000027e0| 72 61 6e 67 65 20 66 6f | 72 6d 61 74 20 22 72 25 |range fo|rmat "r%|
|000027f0| 64 20 3d 20 61 72 72 61 | 79 5b 72 25 64 5d 20 6f |d = arra|y[r%d] o|
|00002800| 66 20 6c 65 6e 67 74 68 | 20 25 64 5c 6e 09 22 20 |f length| %d\n." |
|00002810| 72 72 72 20 63 63 20 22 | 25 64 20 22 20 22 5c 6e |rrr cc "|%d " "\n|
|00002820| 22 5d 20 36 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |"] 6]).(|defalias|
|00002830| 20 27 63 63 6c 2d 64 75 | 6d 70 2d 6a 75 6d 70 20 | 'ccl-du|mp-jump |
|00002840| 23 5b 28 72 72 72 20 63 | 63 29 20 22 c0 c1 5c 6e |#[(rrr c|c) "..\n|
|00002850| 5c 22 63 87 22 20 5b 66 | 6f 72 6d 61 74 20 22 6a |\"c." [f|ormat "j|
|00002860| 75 6d 70 20 74 6f 20 25 | 64 5c 6e 22 20 63 63 5d |ump to %|d\n" cc]|
|00002870| 20 33 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 | 3]).(de|falias '|
|00002880| 63 63 6c 2d 64 75 6d 70 | 2d 6a 75 6d 70 2d 63 6f |ccl-dump|-jump-co|
|00002890| 6e 64 20 23 5b 28 72 72 | 72 20 63 63 29 20 22 c0 |nd #[(rr|r cc) ".|
|000028a0| c1 5c 6e 0b 23 63 87 22 | 20 5b 66 6f 72 6d 61 74 |.\n.#c."| [format|
|000028b0| 20 22 69 66 20 21 28 72 | 25 64 29 2c 20 6a 75 6d | "if !(r|%d), jum|
|000028c0| 70 20 74 6f 20 25 64 5c | 6e 22 20 72 72 72 20 63 |p to %d\|n" rrr c|
|000028d0| 63 5d 20 34 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |c] 4]).(|defalias|
|000028e0| 20 27 63 63 6c 2d 64 75 | 6d 70 2d 77 72 69 74 65 | 'ccl-du|mp-write|
|000028f0| 2d 6a 75 6d 70 20 23 5b | 28 72 72 72 20 63 63 29 |-jump #[|(rrr cc)|
|00002900| 20 22 c0 c1 5c 6e 0b 23 | 63 87 22 20 5b 66 6f 72 | "..\n.#|c." [for|
|00002910| 6d 61 74 20 22 77 72 69 | 74 65 20 72 25 64 2c 20 |mat "wri|te r%d, |
|00002920| 6a 75 6d 70 20 74 6f 20 | 25 64 5c 6e 22 20 72 72 |jump to |%d\n" rr|
|00002930| 72 20 63 63 5d 20 34 5d | 29 0a 28 64 65 66 61 6c |r cc] 4]|).(defal|
|00002940| 69 61 73 20 27 63 63 6c | 2d 64 75 6d 70 2d 77 72 |ias 'ccl|-dump-wr|
|00002950| 69 74 65 2d 72 65 61 64 | 2d 6a 75 6d 70 20 23 5b |ite-read|-jump #[|
|00002960| 28 72 72 72 20 63 63 29 | 20 22 c0 c1 5c 6e 89 0b |(rrr cc)| "..\n..|
|00002970| 24 63 87 22 20 5b 66 6f | 72 6d 61 74 20 22 77 72 |$c." [fo|rmat "wr|
|00002980| 69 74 65 20 72 25 64 2c | 20 72 65 61 64 20 72 25 |ite r%d,| read r%|
|00002990| 64 2c 20 6a 75 6d 70 20 | 74 6f 20 25 64 5c 6e 22 |d, jump |to %d\n"|
|000029a0| 20 72 72 72 20 63 63 5d | 20 35 5d 29 0a 28 64 65 | rrr cc]| 5]).(de|
|000029b0| 66 61 6c 69 61 73 20 27 | 63 63 6c 2d 64 75 6d 70 |falias '|ccl-dump|
|000029c0| 2d 77 72 69 74 65 2d 63 | 2d 6a 75 6d 70 20 23 5b |-write-c|-jump #[|
|000029d0| 28 72 72 72 20 63 63 29 | 20 22 c0 20 19 c2 c3 09 |(rrr cc)| ". ....|
|000029e0| 0c 23 63 29 87 22 20 5b | 63 63 6c 2d 67 65 74 2d |.#c)." [|ccl-get-|
|000029f0| 6e 65 78 74 2d 63 6f 64 | 65 20 63 6f 6e 73 74 20 |next-cod|e const |
|00002a00| 66 6f 72 6d 61 74 20 22 | 77 72 69 74 65 20 25 73 |format "|write %s|
|00002a10| 2c 20 6a 75 6d 70 20 74 | 6f 20 25 64 5c 6e 22 20 |, jump t|o %d\n" |
|00002a20| 63 63 5d 20 34 5d 29 0a | 28 64 65 66 61 6c 69 61 |cc] 4]).|(defalia|
|00002a30| 73 20 27 63 63 6c 2d 64 | 75 6d 70 2d 77 72 69 74 |s 'ccl-d|ump-writ|
|00002a40| 65 2d 63 2d 72 65 61 64 | 2d 6a 75 6d 70 20 23 5b |e-c-read|-jump #[|
|00002a50| 28 72 72 72 20 63 63 29 | 20 22 c0 20 19 c2 c3 09 |(rrr cc)| ". ....|
|00002a60| 0c 0d 24 63 29 87 22 20 | 5b 63 63 6c 2d 67 65 74 |..$c)." |[ccl-get|
|00002a70| 2d 6e 65 78 74 2d 63 6f | 64 65 20 63 6f 6e 73 74 |-next-co|de const|
|00002a80| 20 66 6f 72 6d 61 74 20 | 22 77 72 69 74 65 20 25 | format |"write %|
|00002a90| 73 2c 20 72 65 61 64 20 | 72 25 64 2c 20 6a 75 6d |s, read |r%d, jum|
|00002aa0| 70 20 74 6f 20 25 64 5c | 6e 22 20 72 72 72 20 63 |p to %d\|n" rrr c|
|00002ab0| 63 5d 20 35 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |c] 5]).(|defalias|
|00002ac0| 20 27 63 63 6c 2d 64 75 | 6d 70 2d 77 72 69 74 65 | 'ccl-du|mp-write|
|00002ad0| 2d 73 2d 6a 75 6d 70 20 | 23 5b 28 72 72 72 20 63 |-s-jump |#[(rrr c|
|00002ae0| 63 29 20 22 c0 20 c1 1a | 1b c4 63 88 5c 6e 0b 57 |c) ". ..|..c.\n.W|
|00002af0| ab 8d c5 c6 c0 20 5c 22 | 63 88 5c 6e 54 89 12 aa |..... \"|c.\nT...|
|00002b00| 6f c5 c7 0e 08 5c 22 63 | 2a 87 22 20 5b 63 63 6c |o....\"c|*." [ccl|
|00002b10| 2d 67 65 74 2d 6e 65 78 | 74 2d 63 6f 64 65 20 30 |-get-nex|t-code 0|
|00002b20| 20 69 20 6c 65 6e 20 22 | 77 72 69 74 65 20 5c 22 | i len "|write \"|
|00002b30| 22 20 66 6f 72 6d 61 74 | 20 22 25 63 22 20 22 5c |" format| "%c" "\|
|00002b40| 22 2c 20 6a 75 6d 70 20 | 74 6f 20 25 64 5c 6e 22 |", jump |to %d\n"|
|00002b50| 20 63 63 5d 20 34 5d 29 | 0a 28 64 65 66 61 6c 69 | cc] 4])|.(defali|
|00002b60| 61 73 20 27 63 63 6c 2d | 64 75 6d 70 2d 77 72 69 |as 'ccl-|dump-wri|
|00002b70| 74 65 2d 73 2d 72 65 61 | 64 2d 6a 75 6d 70 20 23 |te-s-rea|d-jump #|
|00002b80| 5b 28 72 72 72 20 63 63 | 29 20 22 c0 20 c1 1a 1b |[(rrr cc|) ". ...|
|00002b90| c4 63 88 5c 6e 0b 57 ab | 8d c5 c6 c0 20 5c 22 63 |.c.\n.W.|.... \"c|
|00002ba0| 88 5c 6e 54 89 12 aa 6f | c5 c7 0e 08 0e 09 23 63 |.\nT...o|......#c|
|00002bb0| 2a 87 22 20 5b 63 63 6c | 2d 67 65 74 2d 6e 65 78 |*." [ccl|-get-nex|
|00002bc0| 74 2d 63 6f 64 65 20 30 | 20 69 20 6c 65 6e 20 22 |t-code 0| i len "|
|00002bd0| 77 72 69 74 65 20 5c 22 | 22 20 66 6f 72 6d 61 74 |write \"|" format|
|00002be0| 20 22 25 63 22 20 22 5c | 22 2c 20 72 65 61 64 20 | "%c" "\|", read |
|00002bf0| 72 25 64 2c 20 6a 75 6d | 70 20 74 6f 20 25 64 5c |r%d, jum|p to %d\|
|00002c00| 6e 22 20 72 72 72 20 63 | 63 5d 20 35 5d 29 0a 28 |n" rrr c|c] 5]).(|
|00002c10| 64 65 66 61 6c 69 61 73 | 20 27 63 63 6c 2d 64 75 |defalias| 'ccl-du|
|00002c20| 6d 70 2d 77 72 69 74 65 | 2d 61 2d 72 65 61 64 2d |mp-write|-a-read-|
|00002c30| 6a 75 6d 70 20 23 5b 28 | 72 72 72 20 63 63 29 20 |jump #[(|rrr cc) |
|00002c40| 22 c0 20 c1 1a 1b c4 c5 | 0e 06 0b 0e 06 0e 07 25 |". .....|.......%|
|00002c50| 63 88 5c 6e 0b 57 ab 8d | c4 c8 c0 20 5c 22 63 88 |c.\n.W..|... \"c.|
|00002c60| 5c 6e 54 89 12 aa 6f c9 | 63 2a 87 22 20 5b 63 63 |\nT...o.|c*." [cc|
|00002c70| 6c 2d 67 65 74 2d 6e 65 | 78 74 2d 63 6f 64 65 20 |l-get-ne|xt-code |
|00002c80| 30 20 69 20 6c 65 6e 20 | 66 6f 72 6d 61 74 20 22 |0 i len |format "|
|00002c90| 77 72 69 74 65 20 61 72 | 72 61 79 5b 72 25 64 5d |write ar|ray[r%d]|
|00002ca0| 20 6f 66 20 6c 65 6e 67 | 74 68 20 25 64 2c 20 72 | of leng|th %d, r|
|00002cb0| 65 61 64 20 72 25 64 2c | 20 6a 75 6d 70 20 74 6f |ead r%d,| jump to|
|00002cc0| 20 25 64 5c 6e 09 22 20 | 72 72 72 20 63 63 20 22 | %d\n." |rrr cc "|
|00002cd0| 25 64 20 22 20 22 5c 6e | 22 5d 20 37 5d 29 0a 28 |%d " "\n|"] 7]).(|
|00002ce0| 64 65 66 61 6c 69 61 73 | 20 27 63 63 6c 2d 64 75 |defalias| 'ccl-du|
|00002cf0| 6d 70 2d 62 72 61 6e 63 | 68 20 23 5b 28 72 72 72 |mp-branc|h #[(rrr|
|00002d00| 20 63 63 29 20 22 c0 19 | c2 c3 0c 0d 23 63 88 09 | cc) "..|....#c..|
|00002d10| 0d 58 ab 8d c2 c6 c7 20 | 5c 22 63 88 09 54 89 11 |.X..... |\"c..T..|
|00002d20| aa 6f c8 63 29 87 22 20 | 5b 30 20 69 20 66 6f 72 |.o.c)." |[0 i for|
|00002d30| 6d 61 74 20 22 6a 75 6d | 70 20 74 6f 20 61 72 72 |mat "jum|p to arr|
|00002d40| 61 79 5b 72 25 64 5d 20 | 6f 66 20 6c 65 6e 67 74 |ay[r%d] |of lengt|
|00002d50| 68 20 25 64 29 5c 6e 09 | 22 20 72 72 72 20 63 63 |h %d)\n.|" rrr cc|
|00002d60| 20 22 25 64 20 22 20 63 | 63 6c 2d 67 65 74 2d 6e | "%d " c|cl-get-n|
|00002d70| 65 78 74 2d 63 6f 64 65 | 20 22 5c 6e 22 5d 20 35 |ext-code| "\n"] 5|
|00002d80| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 63 63 |]).(defa|lias 'cc|
|00002d90| 6c 2d 64 75 6d 70 2d 72 | 65 61 64 31 20 23 5b 28 |l-dump-r|ead1 #[(|
|00002da0| 72 72 72 20 63 63 29 20 | 22 c0 c1 5c 6e 5c 22 63 |rrr cc) |"..\n\"c|
|00002db0| 87 22 20 5b 66 6f 72 6d | 61 74 20 22 72 65 61 64 |." [form|at "read|
|00002dc0| 20 72 25 64 5c 6e 22 20 | 72 72 72 5d 20 33 5d 29 | r%d\n" |rrr] 3])|
|00002dd0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 63 63 6c 2d |.(defali|as 'ccl-|
|00002de0| 64 75 6d 70 2d 72 65 61 | 64 32 20 23 5b 28 72 72 |dump-rea|d2 #[(rr|
|00002df0| 72 20 63 63 29 20 22 c0 | c1 5c 6e 0b 23 63 87 22 |r cc) ".|.\n.#c."|
|00002e00| 20 5b 66 6f 72 6d 61 74 | 20 22 72 65 61 64 20 72 | [format| "read r|
|00002e10| 25 64 20 61 6e 64 20 72 | 25 64 5c 6e 22 20 72 72 |%d and r|%d\n" rr|
|00002e20| 72 20 63 63 5d 20 34 5d | 29 0a 28 64 65 66 61 6c |r cc] 4]|).(defal|
|00002e30| 69 61 73 20 27 63 63 6c | 2d 64 75 6d 70 2d 72 65 |ias 'ccl|-dump-re|
|00002e40| 61 64 2d 62 72 61 6e 63 | 68 20 23 5b 28 72 72 72 |ad-branc|h #[(rrr|
|00002e50| 20 63 63 29 20 22 c0 c1 | 5c 6e 5c 22 63 88 c3 5c | cc) "..|\n\"c..\|
|00002e60| 6e 0c 5c 22 87 22 20 5b | 66 6f 72 6d 61 74 20 22 |n.\"." [|format "|
|00002e70| 72 65 61 64 20 72 25 64 | 2c 20 22 20 72 72 72 20 |read r%d|, " rrr |
|00002e80| 63 63 6c 2d 64 75 6d 70 | 2d 62 72 61 6e 63 68 20 |ccl-dump|-branch |
|00002e90| 63 63 5d 20 33 5d 29 0a | 28 64 65 66 61 6c 69 61 |cc] 3]).|(defalia|
|00002ea0| 73 20 27 63 63 6c 2d 64 | 75 6d 70 2d 77 72 69 74 |s 'ccl-d|ump-writ|
|00002eb0| 65 31 20 23 5b 28 72 72 | 72 20 63 63 29 20 22 c0 |e1 #[(rr|r cc) ".|
|00002ec0| c1 5c 6e 5c 22 63 87 22 | 20 5b 66 6f 72 6d 61 74 |.\n\"c."| [format|
|00002ed0| 20 22 77 72 69 74 65 20 | 72 25 64 5c 6e 22 20 72 | "write |r%d\n" r|
|00002ee0| 72 72 5d 20 33 5d 29 0a | 28 64 65 66 61 6c 69 61 |rr] 3]).|(defalia|
|00002ef0| 73 20 27 63 63 6c 2d 64 | 75 6d 70 2d 77 72 69 74 |s 'ccl-d|ump-writ|
|00002f00| 65 32 20 23 5b 28 72 72 | 72 20 63 63 29 20 22 c0 |e2 #[(rr|r cc) ".|
|00002f10| c1 5c 6e 0b 23 63 87 22 | 20 5b 66 6f 72 6d 61 74 |.\n.#c."| [format|
|00002f20| 20 22 77 72 69 74 65 20 | 72 25 64 20 61 6e 64 20 | "write |r%d and |
|00002f30| 72 25 64 5c 6e 22 20 72 | 72 72 20 63 63 5d 20 34 |r%d\n" r|rr cc] 4|
|00002f40| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 63 63 |]).(defa|lias 'cc|
|00002f50| 6c 2d 64 75 6d 70 2d 77 | 72 69 74 65 2d 63 20 23 |l-dump-w|rite-c #|
|00002f60| 5b 28 72 72 72 20 63 63 | 29 20 22 c0 c1 c2 20 5c |[(rrr cc|) "... \|
|00002f70| 22 63 87 22 20 5b 66 6f | 72 6d 61 74 20 22 77 72 |"c." [fo|rmat "wr|
|00002f80| 69 74 65 20 25 73 5c 6e | 22 20 63 63 6c 2d 67 65 |ite %s\n|" ccl-ge|
|00002f90| 74 2d 6e 65 78 74 2d 63 | 6f 64 65 5d 20 33 5d 29 |t-next-c|ode] 3])|
|00002fa0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 63 63 6c 2d |.(defali|as 'ccl-|
|00002fb0| 64 75 6d 70 2d 77 72 69 | 74 65 2d 73 20 23 5b 28 |dump-wri|te-s #[(|
|00002fc0| 72 72 72 20 63 63 29 20 | 22 c0 20 c1 1a 1b c4 63 |rrr cc) |". ....c|
|00002fd0| 88 5c 6e 0b 57 ab 8d c5 | c6 c0 20 5c 22 63 88 5c |.\n.W...|.. \"c.\|
|00002fe0| 6e 54 89 12 aa 6f c7 63 | 2a 87 22 20 5b 63 63 6c |nT...o.c|*." [ccl|
|00002ff0| 2d 67 65 74 2d 6e 65 78 | 74 2d 63 6f 64 65 20 30 |-get-nex|t-code 0|
|00003000| 20 69 20 6c 65 6e 20 22 | 77 72 69 74 65 20 5c 22 | i len "|write \"|
|00003010| 22 20 66 6f 72 6d 61 74 | 20 22 25 63 22 20 22 5c |" format| "%c" "\|
|00003020| 22 5c 6e 22 5d 20 34 5d | 29 0a 28 64 65 66 61 6c |"\n"] 4]|).(defal|
|00003030| 69 61 73 20 27 63 63 6c | 2d 64 75 6d 70 2d 77 72 |ias 'ccl|-dump-wr|
|00003040| 69 74 65 2d 61 20 23 5b | 28 72 72 72 20 63 63 29 |ite-a #[|(rrr cc)|
|00003050| 20 22 c0 20 c1 1a 1b c4 | c5 0e 06 0b 23 63 88 5c | ". ....|....#c.\|
|00003060| 6e c1 57 ab 8c c7 c0 20 | b1 02 88 5c 6e 54 89 12 |n.W.... |...\nT..|
|00003070| aa 70 c8 63 2a 87 22 20 | 5b 63 63 6c 2d 67 65 74 |.p.c*." |[ccl-get|
|00003080| 2d 6e 65 78 74 2d 63 6f | 64 65 20 30 20 69 20 6c |-next-co|de 0 i l|
|00003090| 65 6e 20 66 6f 72 6d 61 | 74 20 22 77 72 69 74 65 |en forma|t "write|
|000030a0| 20 61 72 72 61 79 5b 72 | 25 64 5d 20 6f 66 20 6c | array[r|%d] of l|
|000030b0| 65 6e 67 74 68 20 25 64 | 5c 6e 09 22 20 72 72 72 |ength %d|\n." rrr|
|000030c0| 20 22 25 64 20 22 20 22 | 5c 6e 22 5d 20 35 5d 29 | "%d " "|\n"] 5])|
|000030d0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 63 63 6c 2d |.(defali|as 'ccl-|
|000030e0| 64 75 6d 70 2d 65 6e 64 | 20 23 5b 28 72 72 72 20 |dump-end| #[(rrr |
|000030f0| 63 63 29 20 22 c0 63 87 | 22 20 5b 22 65 6e 64 5c |cc) ".c.|" ["end\|
|00003100| 6e 22 5d 20 31 5d 29 0a | 28 64 65 66 61 6c 69 61 |n"] 1]).|(defalia|
|00003110| 73 20 27 63 63 6c 2d 64 | 75 6d 70 2d 73 65 74 2d |s 'ccl-d|ump-set-|
|00003120| 73 65 6c 66 2d 63 73 20 | 23 5b 28 72 72 72 20 63 |self-cs |#[(rrr c|
|00003130| 63 29 20 22 08 c1 20 48 | 1a c3 c4 0d 5c 6e 0e 06 |c) ".. H|....\n..|
|00003140| 24 63 29 87 22 20 5b 63 | 63 6c 2d 61 72 69 74 68 |$c)." [c|cl-arith|
|00003150| 2d 74 61 62 6c 65 20 63 | 63 6c 2d 67 65 74 2d 6e |-table c|cl-get-n|
|00003160| 65 78 74 2d 63 6f 64 65 | 20 61 72 69 74 68 20 66 |ext-code| arith f|
|00003170| 6f 72 6d 61 74 20 22 72 | 25 64 20 25 73 3d 20 25 |ormat "r|%d %s= %|
|00003180| 73 5c 6e 22 20 72 72 72 | 20 63 63 5d 20 35 5d 29 |s\n" rrr| cc] 5])|
|00003190| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 63 63 6c 2d |.(defali|as 'ccl-|
|000031a0| 64 75 6d 70 2d 73 65 74 | 2d 73 65 6c 66 2d 63 6c |dump-set|-self-cl|
|000031b0| 20 23 5b 28 72 72 72 20 | 63 63 29 20 22 c0 20 11 | #[(rrr |cc) ". .|
|000031c0| 5c 6e c0 20 48 1b c4 c5 | 0e 06 0b 09 24 63 29 87 |\n. H...|....$c).|
|000031d0| 22 20 5b 63 63 6c 2d 67 | 65 74 2d 6e 65 78 74 2d |" [ccl-g|et-next-|
|000031e0| 63 6f 64 65 20 63 63 20 | 63 63 6c 2d 61 72 69 74 |code cc |ccl-arit|
|000031f0| 68 2d 74 61 62 6c 65 20 | 61 72 69 74 68 20 66 6f |h-table |arith fo|
|00003200| 72 6d 61 74 20 22 72 25 | 64 20 25 73 3d 20 25 73 |rmat "r%|d %s= %s|
|00003210| 5c 6e 22 20 72 72 72 5d | 20 35 5d 29 0a 28 64 65 |\n" rrr]| 5]).(de|
|00003220| 66 61 6c 69 61 73 20 27 | 63 63 6c 2d 64 75 6d 70 |falias '|ccl-dump|
|00003230| 2d 73 65 74 2d 73 65 6c | 66 2d 72 20 23 5b 28 72 |-set-sel|f-r #[(r|
|00003240| 72 72 20 63 63 29 20 22 | 08 c1 20 48 1a c3 c4 0d |rr cc) "|.. H....|
|00003250| 5c 6e 0e 06 24 63 29 87 | 22 20 5b 63 63 6c 2d 61 |\n..$c).|" [ccl-a|
|00003260| 72 69 74 68 2d 74 61 62 | 6c 65 20 63 63 6c 2d 67 |rith-tab|le ccl-g|
|00003270| 65 74 2d 6e 65 78 74 2d | 63 6f 64 65 20 61 72 69 |et-next-|code ari|
|00003280| 74 68 20 66 6f 72 6d 61 | 74 20 22 72 25 64 20 25 |th forma|t "r%d %|
|00003290| 73 3d 20 72 25 64 5c 6e | 22 20 72 72 72 20 63 63 |s= r%d\n|" rrr cc|
|000032a0| 5d 20 35 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |] 5]).(d|efalias |
|000032b0| 27 63 63 6c 2d 64 75 6d | 70 2d 73 65 74 2d 65 78 |'ccl-dum|p-set-ex|
|000032c0| 70 72 2d 63 6c 20 23 5b | 28 72 72 72 20 63 63 29 |pr-cl #[|(rrr cc)|
|000032d0| 20 22 c0 20 09 c0 20 48 | 1a 1b c4 c5 0e 06 0e 07 | ". .. H|........|
|000032e0| 5c 6e 0b 25 63 2a 87 22 | 20 5b 63 63 6c 2d 67 65 |\n.%c*."| [ccl-ge|
|000032f0| 74 2d 6e 65 78 74 2d 63 | 6f 64 65 20 63 63 6c 2d |t-next-c|ode ccl-|
|00003300| 61 72 69 74 68 2d 74 61 | 62 6c 65 20 61 72 69 74 |arith-ta|ble arit|
|00003310| 68 20 63 6f 6e 73 74 20 | 66 6f 72 6d 61 74 20 22 |h const |format "|
|00003320| 72 25 64 20 3d 20 72 25 | 64 20 25 73 20 25 73 5c |r%d = r%|d %s %s\|
|00003330| 6e 22 20 72 72 72 20 63 | 63 5d 20 36 5d 29 0a 28 |n" rrr c|c] 6]).(|
|00003340| 64 65 66 61 6c 69 61 73 | 20 27 63 63 6c 2d 64 75 |defalias| 'ccl-du|
|00003350| 6d 70 2d 73 65 74 2d 65 | 78 70 72 2d 72 20 23 5b |mp-set-e|xpr-r #[|
|00003360| 28 72 72 72 20 63 63 29 | 20 22 c0 20 09 c0 20 48 |(rrr cc)| ". .. H|
|00003370| 1a 1b c4 c5 0e 06 0e 07 | 5c 6e 0b 25 63 2a 87 22 |........|\n.%c*."|
|00003380| 20 5b 63 63 6c 2d 67 65 | 74 2d 6e 65 78 74 2d 63 | [ccl-ge|t-next-c|
|00003390| 6f 64 65 20 63 63 6c 2d | 61 72 69 74 68 2d 74 61 |ode ccl-|arith-ta|
|000033a0| 62 6c 65 20 61 72 69 74 | 68 20 72 65 67 20 66 6f |ble arit|h reg fo|
|000033b0| 72 6d 61 74 20 22 72 25 | 64 20 3d 20 72 25 64 20 |rmat "r%|d = r%d |
|000033c0| 25 73 20 72 25 64 5c 6e | 22 20 72 72 72 20 63 63 |%s r%d\n|" rrr cc|
|000033d0| 5d 20 36 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |] 6]).(d|efalias |
|000033e0| 27 63 63 6c 2d 64 75 6d | 70 2d 6a 75 6d 70 2d 63 |'ccl-dum|p-jump-c|
|000033f0| 6f 6e 64 2d 63 20 23 5b | 28 72 72 72 20 63 63 29 |ond-c #[|(rrr cc)|
|00003400| 20 22 c0 20 09 c0 20 48 | 1a 1b c4 c5 0e 06 5c 6e | ". .. H|......\n|
|00003410| 0b 0e 07 25 63 2a 87 22 | 20 5b 63 63 6c 2d 67 65 |...%c*."| [ccl-ge|
|00003420| 74 2d 6e 65 78 74 2d 63 | 6f 64 65 20 63 63 6c 2d |t-next-c|ode ccl-|
|00003430| 61 72 69 74 68 2d 74 61 | 62 6c 65 20 61 72 69 74 |arith-ta|ble arit|
|00003440| 68 20 63 6f 6e 73 74 20 | 66 6f 72 6d 61 74 20 22 |h const |format "|
|00003450| 69 66 20 21 28 72 25 64 | 20 25 73 20 25 73 29 2c |if !(r%d| %s %s),|
|00003460| 20 6a 75 6d 70 20 74 6f | 20 25 64 5c 6e 22 20 72 | jump to| %d\n" r|
|00003470| 72 72 20 63 63 5d 20 36 | 5d 29 0a 28 64 65 66 61 |rr cc] 6|]).(defa|
|00003480| 6c 69 61 73 20 27 63 63 | 6c 2d 64 75 6d 70 2d 6a |lias 'cc|l-dump-j|
|00003490| 75 6d 70 2d 63 6f 6e 64 | 2d 72 20 23 5b 28 72 72 |ump-cond|-r #[(rr|
|000034a0| 72 20 63 63 29 20 22 c0 | 20 09 c0 20 48 1a 1b c4 |r cc) ".| .. H...|
|000034b0| c5 0e 06 5c 6e 0b 0e 07 | 25 63 2a 87 22 20 5b 63 |...\n...|%c*." [c|
|000034c0| 63 6c 2d 67 65 74 2d 6e | 65 78 74 2d 63 6f 64 65 |cl-get-n|ext-code|
|000034d0| 20 63 63 6c 2d 61 72 69 | 74 68 2d 74 61 62 6c 65 | ccl-ari|th-table|
|000034e0| 20 61 72 69 74 68 20 72 | 65 67 20 66 6f 72 6d 61 | arith r|eg forma|
|000034f0| 74 20 22 69 66 20 21 28 | 72 25 64 20 25 73 20 72 |t "if !(|r%d %s r|
|00003500| 25 64 29 2c 20 6a 75 6d | 70 20 74 6f 20 25 64 5c |%d), jum|p to %d\|
|00003510| 6e 22 20 72 72 72 20 63 | 63 5d 20 36 5d 29 0a 28 |n" rrr c|c] 6]).(|
|00003520| 64 65 66 61 6c 69 61 73 | 20 27 63 63 6c 2d 64 75 |defalias| 'ccl-du|
|00003530| 6d 70 2d 72 65 61 64 2d | 6a 75 6d 70 2d 63 6f 6e |mp-read-|jump-con|
|00003540| 64 2d 63 20 23 5b 28 72 | 72 72 20 63 63 29 20 22 |d-c #[(r|rr cc) "|
|00003550| c0 c1 5c 6e 5c 22 63 88 | c3 5c 6e 0c 5c 22 87 22 |..\n\"c.|.\n.\"."|
|00003560| 20 5b 66 6f 72 6d 61 74 | 20 22 72 65 61 64 20 72 | [format| "read r|
|00003570| 25 64 2c 20 22 20 72 72 | 72 20 63 63 6c 2d 64 75 |%d, " rr|r ccl-du|
|00003580| 6d 70 2d 6a 75 6d 70 2d | 63 6f 6e 64 2d 63 20 63 |mp-jump-|cond-c c|
|00003590| 63 5d 20 33 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |c] 3]).(|defalias|
|000035a0| 20 27 63 63 6c 2d 64 75 | 6d 70 2d 72 65 61 64 2d | 'ccl-du|mp-read-|
|000035b0| 6a 75 6d 70 2d 63 6f 6e | 64 2d 72 20 23 5b 28 72 |jump-con|d-r #[(r|
|000035c0| 72 72 20 63 63 29 20 22 | c0 c1 5c 6e 5c 22 63 88 |rr cc) "|..\n\"c.|
|000035d0| c3 5c 6e 0c 5c 22 87 22 | 20 5b 66 6f 72 6d 61 74 |.\n.\"."| [format|
|000035e0| 20 22 72 65 61 64 20 72 | 25 64 2c 20 22 20 72 72 | "read r|%d, " rr|
|000035f0| 72 20 63 63 6c 2d 64 75 | 6d 70 2d 6a 75 6d 70 2d |r ccl-du|mp-jump-|
|00003600| 63 6f 6e 64 2d 72 20 63 | 63 5d 20 33 5d 29 0a 23 |cond-r c|c] 3]).#|
|00003610| 40 31 30 39 20 44 6f 65 | 73 20 28 64 65 66 63 6f |@109 Doe|s (defco|
|00003620| 6e 73 74 20 4e 41 4d 45 | 20 28 63 63 6c 2d 63 6f |nst NAME| (ccl-co|
|00003630| 6d 70 69 6c 65 20 28 65 | 76 61 6c 20 43 43 4c 2d |mpile (e|val CCL-|
|00003640| 50 52 4f 47 52 41 4d 29 | 29 20 44 4f 43 29 2e 0a |PROGRAM)|) DOC)..|
|00003650| 42 79 74 65 2d 63 6f 6d | 70 69 6c 65 72 20 65 78 |Byte-com|piler ex|
|00003660| 70 61 6e 64 20 74 68 69 | 73 20 6d 61 63 72 6f 20 |pand thi|s macro |
|00003670| 77 68 69 6c 65 20 63 6f | 6d 70 69 6c 69 6e 67 2e |while co|mpiling.|
|00003680| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 64 65 66 |..(defal|ias 'def|
|00003690| 69 6e 65 2d 63 63 6c 2d | 70 72 6f 67 72 61 6d 20 |ine-ccl-|program |
|000036a0| 27 28 6d 61 63 72 6f 20 | 2e 20 23 5b 28 6e 61 6d |'(macro |. #[(nam|
|000036b0| 65 20 63 63 6c 2d 70 72 | 6f 67 72 61 6d 20 26 6f |e ccl-pr|ogram &o|
|000036c0| 70 74 69 6f 6e 61 6c 20 | 64 6f 63 29 20 22 c0 09 |ptional |doc) "..|
|000036d0| c2 c3 0c 21 21 0d 46 87 | 22 20 5b 64 65 66 63 6f |...!!.F.|" [defco|
|000036e0| 6e 73 74 20 6e 61 6d 65 | 20 63 63 6c 2d 63 6f 6d |nst name| ccl-com|
|000036f0| 70 69 6c 65 20 65 76 61 | 6c 20 63 63 6c 2d 70 72 |pile eva|l ccl-pr|
|00003700| 6f 67 72 61 6d 20 64 6f | 63 5d 20 35 20 28 23 24 |ogram do|c] 5 (#$|
|00003710| 20 2e 20 31 33 38 34 35 | 29 5d 29 29 0a 28 62 79 | . 13845|)])).(by|
|00003720| 74 65 2d 63 6f 64 65 20 | 22 c0 c1 c2 c3 23 88 c4 |te-code |"....#..|
|00003730| c5 21 87 22 20 5b 70 75 | 74 20 64 65 66 69 6e 65 |.!." [pu|t define|
|00003740| 2d 63 63 6c 2d 70 72 6f | 67 72 61 6d 20 62 79 74 |-ccl-pro|gram byt|
|00003750| 65 2d 68 75 6e 6b 2d 68 | 61 6e 64 6c 65 72 20 6d |e-hunk-h|andler m|
|00003760| 61 63 72 6f 65 78 70 61 | 6e 64 20 70 72 6f 76 69 |acroexpa|nd provi|
|00003770| 64 65 20 63 63 6c 5d 20 | 34 29 0a |de ccl] |4). |
+--------+-------------------------+-------------------------+--------+--------+
